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ABSTRACT 


An XPL compiler is described which executes on an IBM 360/65 
computer and directly produces machine code for a CDC 6000 series 
machine. The emphasis is on local optimization techniques used in 
the compiler. The compiler described here is an evolutionary step 
in the process of bootstrapping XPL. to the CDC 6000 series computers- 
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I. INTRODUCTION 


With the growing use of computers by engineers and scientists, 
computer utilization is often proportional to the variety of higher-level 
languages available on it. Each higher-level language requires a 
compiler, and each compiler requires extensive development time and 
effort. Any tool which reduces compiler development effort therefore 
increases computer utilization. XPL, which is basically a compiler 
development system, is such a tool. ^ The Control Data Corporation 
(CDC) 6000 series computers are large, powerful systems but they 
currently have only limited language support [Ref. 3]. Under these 
circumstances, any compiler development tool is especially valuable. 
Thus, XPL constitutes a significant addition to the CDC 6000 library. 
The important aspects of the development of such a compiler are 
choosing the most appropriate grammatical description of the language, 
optimization of the emitted code, proper selection of an adequate 
register allocation strategy, and techniques used in producing code 
for the CDC 6000 on an IBM System/360. These are the major topics 
of this thesis. 


XPL is referred to as a system because it consists not only of 
the XCOM compiler but a program, called the SYNTAX ANALYZER, 
which produces parsing tables, a general control program, referred 
to as the sub-monitor, or XMON, and a basic syntax checker which 
contains the scanner and parsing routines, called the SKELETON. 


6 









II. THE LANGUAGE XPL 


A. INTRODUCTION 

The structure and meaning of any element of a language are em¬ 
bodied mainly in the syntax and semantics of the language. Most of the 
actions of the compiled program are given by the semantics of a com¬ 
puter language, while the structure of such a language is described by 
its syntax. Each of these elements of language description is divided 
into two parts. The most obvious of these is the part of the language 
which is described for the programmer who is to use the language. 

This part is referred to as the explicit part. Less obvious, but more 
important, are the implicit structure and implicit meaning for this is 
where the restrictions are often found. With a computer programming 
language, many of the incompatibility problems among different im¬ 
plementations result from differences in the implicit descriptions. 

These implicit differences are not the only source of misinterpreta¬ 
tion, however. The explicit description of a programming language is 
often made using English or some other language incapable of convey¬ 
ing precise information of this type. When a special-purpose language 
is used to improve the clarity and precision of the definition, the 
definition is improved; but no currently available meta-language, as 
these languages are called, is capable of defining a language completely. 
Since this is the case, a part of the definition, which may be referred 
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to as the formal part, is made using the meta-language, and the 
remainder of the description, called the informal part, is made using 
English, 

Since a computer programming language is interpreted in only one 
way by the computer, such a language has a precise definition. When 
a programmer wishes to solve a problem using a programming language, 
he must know and use this precise definition if his problem is to be 
solved correctly. A programmer can solve his problem more quickly 
if he can determine the precise meaning of any statement in the language 
from the explicit description of the language. This is possible only 
when the language is described formally. For this reason, it is 
desirable to include as much of the definition of a programming language 

o 

in its formal description as possible. This consideration had a sub¬ 
stantial effect on the development of the CDC XPL compiler, 

B. DESCRIBING XPL 

XPL can be described in several ways. It was first presented at 
the 1968 Fall Joint Computer Conference [McKeeman, et al. , Ref. 17]. 
Later, in Ref. 16, a more thorough description of XPL was given, 
along with a presentation of the theory underlying the XPL Mixed 
Strategy Precedence parser. The formal syntactic description of 
XPL, as defined by these authors, is found in Appendix A. This formal 
syntactic description defines a language much more extensive than XPL, 
and only the informal and implicit definitions restrict the formal 
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grammar enough to define the correct language. Because it was 

thought desirable to include as much of this informal and implicit 

information in the grammar as possible, and because including more 

of the language definition in the grammar was thought to reduce compiler 

development time, an ’improved" grammar was defined for use in the 

2 

CDC version of XPL. 

It is realized that the formal definition of a language used for 
documentation need not be the same as that used for implementation. 
When this approach is used, however, the chances of documenting a 
language other than the one implemented are increased, It was found 
that the use of a precise grammar for XPL, as input to the SYNTAX 
ANALYZER, increased the amount of the compiler which had to be 
completed before any tests could be made of its operation. This 
increased development time and therefore was detrimental to the 
development effort. The advantages of a more precise definition and 
the guarantee that the language implemented was the language doc¬ 
umented were considered more important, however, so that the more 
precise grammar was used throughout the development. 

The improved grammar also contains other useful changes. These 

other improvements include provision for user-specified maximum 

string size specifications in declaration statements to improve string 

« 

2 

The grammar for XPL is described using Backus Normal Form 
or Backus-Naur Form (BNF) which is also the input language for the 
SYNTAX ANALYZER. The SYNTAX ANALYZER then produces the 
parsing tables used by the parsing and scanning procedures in 
SKELETON. 
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handling. Provision is also made for the declaration and use of external 
procedures to allow program segments which are compiled separately 
to be linked together and run as a single program, XPL uses a number 
of intrinsic procedures, which require language facilities not available 
to the general user. One of these facilities has been included in the 
improved grammar. This facility allows parameters to be given 
default values which are used when an insufficient number of arguments 
appear in a procedure call. A grammatical construct to provide the 
exclusive OR operation was also added to the grammar because of the 
inefficiency of bit processing on the CDC 6000. The final grammar 
changes were made to provide a character set compatible with both 
that of the IBM System/360 and the CDC 6000. For this purpose, the 
PL/I 48-character character set was chosen because it contained the 
fewest exceptions and because the structure of XPL is close to PL/I 
[Refs. 10 and 20]. 

C. THE STRUCTURE OF THE LANGUAGE 

XPL is a block-structured language which is similar to PL/I, but 
is more restrictive in some ways and more general in others, as 
shown in Table 1. XPL contains all the procedure type attributes of 
PL/I except that procedures may neither be recursive nor reentrant. 
Array-valued procedures are not allowed in XPL although array¬ 
valued intrinsic procedures do exist. The structural words of XPL 
are reserved but intrinsic procedure names may be redefined. The 
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criteria used for including or omitting PL/I constructs in XPL are 

their usefulness in compiler writing, and. except for the UNSPEC 

procedure useful in implementing any compiler, all of the compiler 

writing features of PL/I have been included in XPL. Though some of 

the intrinsic procedures of XPL may be used as pseudo-variables. 

3 

they are used mainly to communicate with the sub-monitor. Several 
intrinsic procedures which are common to both XPL and PL/I are 
pseudo-variables only in PL/I. The losses here are covered by 
additions in other areas of XPL, however. There are no user-defined 

pseudo-variables in either language. 

Though PL/I has extensive compile-time facilities, XPL has only 
one. Macros may be defined in XPL and thereafter used throughout 
the program. These are defined using the "LITERALLY" construct 
in a declaration. With CDC XPL, these declarations have the same 
scope as any other variable defined under similar circumstances. 

In IBM System/360 XPL, however, the definitions are always global, 
no matter where the declarations are placed. 

The input/output procedures in XPL are of the simplest type. All 
output is from character string type data and no format control is 
provided. Routines within the compiler provide automatic conversion 


^The XPL system executes under its own special monitor which 
ontrols such fulctions as input/output and tracing. This sub-monitor 
;xecutes as a normal program under OS/360. A more =°tnplete 
lescription of the OS/360 sub-monitor may be found in ppen i 
ief! 13, while a complete description of the CDC sub-monitor is 

lescribed in Ref. 19* 
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from numeric results to string results, allowing decimal information 
to be printed easily. Input/output is performed by the INPCT, OUTPUT, 
and FILE intrinsic procedures. 

XPL is virtually a one-pass compiler while PL/I makes many 
passes on both the source program and intermediate compiler outputs. 
This makes XPL extremely simple compared with the sophistication of 
PL/I, It restricts somewhat the structures processable by XPL and 
significantly restricts the types of optimization possible with XPL. 

The other major restrictions on an XPL program involve mainly 
table sizes and expression complexity. One of the objectives of XPL 
is to rapidly produce code with as little non-required code as possible 
(e. g. , XPL does not check subscript bounds). The first requirement 
demands that the compiler perform its functions in as straightforward 
a manner as possible. This means that tables must be wholly contained 
in memory and that register allocation must be done in a simple 
manner. The size restrictions apply to the symbol table size, the 
number of macros, and the number of strings. These restrictions 
can lead to overwhelming problems when a large program is being 
prepared. The register allocation restriction has no adverse effects 
but is quite ^’old-fashioned. ” That is, XPL returns the register alloca¬ 
tion problem to the programmer. With XPL the programmer must 
often create and account for the efficient use of temporary storage 
locations. This is necessary because intermediate results, originating 
from the necessity to break up complex computations, must be stored 
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until they can be combined in a simple statement. It was determined 
that array subscripting caused the greatest problems from this 
decision. The code simplicity restriction requires that most compile¬ 
time and execution-time debugging and error-detection facilities be 
provided by the programmer. This leads to a logical contradiction 
regarding the XPL documentation. 

It is assumed by the developers of XPL that the system will be 
used by professional programmers who will make it a point to study 
the system thoroughly and know how to use it efficiently. The documen¬ 
tation does not, however, provide such information and determining it 
experimentally is a very costly process in time and computer runs. 

It is also assumed that programmers using the XPL system will make 
fewer mistakes, both logical and syntactic, since they are professionals. 
This is a dangerous assumption to make with any compiler. Though 
these assumptions lead to reduced compile time for each individual 
compile run and improve the execution time for the object program, 
they lead to increased programming effort, require excessive con¬ 
centration on the mechanics, rather than the logic, of the program, 
and increase the number of computer runs necessary for develop¬ 
ment of the program. An attempt has been made to alleviate some 
of these objections in the CDC version of XPL implemented by the 
author. This has, however, been done with no changes in the structure 
provided by SKELETON. 
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D. THE STRUCTURE OF THE COMPILER 


The basic structure of an XPL compiler is provided by the 
SKELETON included in the XPL system. This SKELETON contains 
the routines for parsing and scanning a grammar using the parsing 
tables produced by the SYNTAX ANALYZER from the BNF descrip¬ 
tion of a language. It contains no code emission or special purpose 
routines and its scanner handles only the simplest forms of input. 

This set of routines, when used with these parsing tables, will check 
most grammars for structural correctness, and adds more to the 
language description than can be determined from a study of the 
grammar itself. 

To learn more about the language than the information contained 
in the formal grammar, the XCOM program must be thoroughly studied. 
Some of the important aspects of the semantics of XPL and some 
additional syntactic information is included in the informal description 
of XPL provided by Chapter 6 of Ref. 16. By a thorough study of 
these sources, it will be found that there are important syntactic 
restrictions which cannot be identified from the grammar and 
important semantic properties of XPL which do not appear in its 
informal semantic description. 

By expansion of the grammar and generalization of the compiler, 
the CDC version of XPL has been made more completely described 
by its grammar. It can be shown [Refs. 10-11] that certain language 
restrictions, such as definition of the number of repititions of a 
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particular structure allowable, cannot be described using BNF. 

The BNF description of XPL does not indicate that multiple subscripts 
are not allowed; nor does it indicate that use of the INITIAL attribute 
with a grouped declaration is not permitted. Expansion of the compiler 
to handle multiple subscripts is not necessary since this restriction 
can easily be ’’removed*' by the programmer by the use of a procedure 
reference to a singly subscripted array or by the use of computations 
within a subscript expression. Application of the INITIAL attribute to 
grouped data declarations cannot be so duplicated, however, so it is 
implemented in CDC XPL by expansion of the compiler. Within the 
XPL grammar, there is no real distinction made between macro 
definitions and other variable declarations. In System/360 XPL these 
are kept in separate tables. Thus, macro definitions, once made, are 
global. These implied distinctions are removed in CDC XPL. In 
System/360 XPL, no distinction is made between subscripted variable 
names, procedure names, and scalar names, except during declarations 
and implicitly during use, in some cases. With the CDC XPL grammar, 
the differences between these types of identifiers is explicit. With 
the new compiler, a grammatical distinction also exists between 
declared and undeclared names. Only undeclared names are referred 
to as identifiers. The improved grammar also includes some new 
structures which provide the compiler with information useful for 
optimization. 
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III. GENERAL OPTIMIZATION TECHNIQUES 


A. TERMINOLOGY 

Cocke and Schwartz [Ref. 2 ] describe optimization as the process 
of transforming a set of instructions, written in some "source" language 
into a form which allows them to be followed by a computer with as 
little extraneous work as possible. The extent to which this process 
is applied varies widely, and there are a variety of ways in which 
optimizations can be classified. Cocke and Schwartz indicate that one 
such classification divided optimizations into machine-dependent and 
machine-independent optimizations. Another major way of classifying 
optimizations divides them into local and global optimizations. Local 
optimizations involve only information from a small segment of the 
program, usually from a single expression or statement. Global 
optimization involves information from a large segment of the program, 
usually information collected throughout the complete program. It 
will be easier to discuss the details of the optimizations in the CDC 
XPL compiler if the concepts concerning types of optimization are 
clearly defined. The remainder of this section does this. 

Though Ref. 2 is not the sole authority on classes of optimization 
techniques, it does present a well organized discussion and will 
therefore be used as the basis of the classes of optimization defined 
here and used in this paper. 
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Seven basic types of optimization, mostly local, can be easily 
enumerated. The first type of optimization involves elimination of ■ 
redundant instructions. In this case, instructions which are similar 
and common to all control flows can be simplified by computing the 
result once. This result can then be used later in the program execu¬ 
tion wherever the redundant instructions would have been needed. 
Optimization by constant propogation is the second type of optimization 
and is usually one of the easiest to implement. With constant propoga¬ 
tion, expressions composed only of constants may be evaluated at 
compile time and the resultant value used whenever the expression 
appears. Substantially more effort is required to globally optimize 
the use of variables whose values, once defined, are never changed. 
The fact that a variable never changes value can only be determined 
after the complete program has been scanned. Optimization by reduc¬ 
tion in operator strength can save much execution time and does not 
require the consideration of a large program segment. This type of 
optimization can best be illustrated by considering a loop whose index 
is varied by one through each loop, but for which every use of the 
index requires multiplication by a single constant. In this case, the 
index could be varied by the constant value instead of by one, allowing 
direct use of the index, thus trading an addition operation for multi¬ 
plication. Optimization by code motion is usually illustrated by 
considering the case of an expression in a loop whose value never 
changes once the loop is entered. Evaluation of such expressions 
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can be moved outside the loop saving a great deal of time. Optimiza¬ 
tion by test replacement often accompanies optimization by reduction 
in operator strength. This occurs because, when the change denoted 
in the above example of this type of optimization is made, the test for 
loop exit is not made on the number of times the loop has been executed 
but on the maximum value of the index. This type of optimization is 
much more easily done by the programmer than by the compiler. 
Unrolling can be used to reduce execution time in a loop executed 
many times by trading space for time. Instead of executing the com¬ 
plete loop for each index value, the increment can be doubled and the 
routine within the loop executed for two index values each time around 
the loop, thus saving indexing time. 

Elimination of all unused computations is one of the most obvious 
types of optimization. Some of this type of optimization can be done 
by emitting code as late as possible and never emitting code for the 
evaluation of an expression until the result of the expression is used. 
This can be quite difficult in some cases and definitely involves 
global factors. There are, of course, additional optimization techn- 
niques not mentioned above. 

It has been assumed by the authors of Ref. 2 that time optimiza¬ 
tion is most important. This may often be the case, but the assumption 
is not always true. When the size of a program can be reduced with¬ 
out increasing execution tim^e, it should be done. In the CDC XPL 
compiler, additional language constructs allow the programmer to 
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define the maximum length of a string. This facility allows space 
optimization by allowing the compiler to determine a smaller maximum 
working space than would otherwise be possible. Of course, this 
requires more compile time, but just about any optimization tech¬ 
nique does. This is just another factor which must be considered in 
determining the extent of optimization to be done by a compiler. 

When the compiler writer is thoroughly familiar with the use of 
the language which he is implementing, he may know that certain con¬ 
structs in the language are very heavily used while others occur only 
seldom in user programs. When this situation arises, it is often 
advantageous to place more of the optimization emphasis on the heavily 
used constructs. This advantage can be lost when these seldom used 
constructs are placed in often repeated sections of the program. The 
best, albeit the most complex, solution to the above problem is to 
provide a programmable option allowing the user to specify the amount 
of optimization desired either for the complete program or for the 
individual parts of it. The easiest optimization technique to apply, 
however, is programmer education and promotion of the concept of 
careful programming. Because the XPL system is assumed to have 
professional programmers as its principal users, this last technique 
is an important one in the development of an XPL compiler. This 

technique, unlike many of the others, is not hampered by the use of 

/ 

a one-pass compiler. 
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B. OPTIMIZATION WITH A ONE-PASS COMPILER 


Many of the optimization techniques described in the previous 
section cannot be used with a one-pass compiler. It can be easily 
shown [Refs, 11 and 12] that total global optimization is impossible 
with such a compiler. Since XPL is usually compiled by a one-pass 
compiler, it is of great interest to determine how much optimization 
can be done in a single pass. Experience with tie CDC XPL compiler 
development has led to the conclusion that a surprising amount of 
optimization is possible under these conditions. 

In addition to the techniques described in the previous section, 
another general type of optimization which can lead to extensive 
savings is possible. Within a basic block, a part of the program 
containing no branches in or out, evaluation of expressions can be 
optimized in one pass. This can be done by ^'remembering" each 
expression, as it is evaluated, and recording its components. If 
the same expression occurs again in the block, the original value 
may be used if it was saved and if none of the components has changed 
value. This, again, trades space for time in a one-pass compiler, 
since it requires that all values obtained by evaluating expressions 
be saved until a component changes value or the block is exited. 

With a multi-pass compiler, such values need only be saved if they 
are later referenced; but this cannot be determined early enough in 
a single pass to be of value.*'. The process of preparing a compiler 
for this thesis indicated that this type of optimization is very costly 
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in both compiler size and execution time. Only a few other techniques 
of machine independent optimization seem possible in a one-pass 
compiler. Hence, it appears advantageous to use this technique 
despite its cost. 

Of the techniques detailed in the previous section, only four seem 

applicable to a one-pass system. Compile time evaluation of some 

constant-valued expressions and other types of constant propogation 

are possible when the operands are known to be constant within a 

basic block. Elimination of redundant instructions which are local 

to a given statement may also be done in one pass. Optimizations 

based on information purposely furnished by the programmer in his 

source statements is certainly usable in a one-pass compiler, or the 
0 

structures allowing the inclusion of such information would be useless. 
Some types of optimization of special cases of structures known to 
receive heavy programmer use can also be accomplished without 
looking forward in the source program for needed data. Several 
of these techniques were used in the CDC XPL compiler. 

C. GENERAL OPTIMIZING TECHNIQUES USED IN CDC XPL 

As indicated in the previous section, facilities for optimization 
of expression computations within basic program blocks were im¬ 
plemented in the CDC XPL compiler. Because of development time 
constraints, these facilities were not extensively applied, however. 
Another reason for the restricted use of these facilities concerns 


21 











hardware differences between the CDC 6000 machines and IBM 
System/360. A specific instance of the application of this decision 
involves evaluation of constant-valued expressions. One of the first 
optimization facilities normally included in a compiler evaluates these 
expressions at compile time. Since the CDC word length is twice that 
of the IBM System/360, this would have involved double precision 
computations. It was therefore decided that the implementation of 
this feature might best be deferred until the CDC XPL compiler 
executes on a CDC mnchine. 

Simple constant propogation, optimization from programmer- 
furnished information, and optimization based on known heavy usage 
of particular language structures were implemented in the current 
compiler. The handling of constant propogation was accomplished by 
tabulating constants appearing in a program along with their object¬ 
time addresses. Constants of length eighteen bits or less were placed 
directly in the address portions of appropriate CDC instructions, 
when possible. Facilities for optimization of string storage based on 
programmer-furnished maximum string sizes were included in the 
compiler, but, since the string handling procedures in the compiler 
were not completed, the facilities have had little application. The 
"DO WHILE 1" or "DO FOREVER" construct is heavily used by most 
XPL programmers. This case of the WHILE construct was given 
special emphasis in the code emission procedures. With this case. 
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no test is made for termination and an endless loop results from the 
emitted code, requiring a branch out or a RETURN to exit the loop. 

Because CDC words may contain several instructions, and 
because only word boundaries are addressable in the machine, any 
implicit or explicit transfer must go to a word boundary. The state¬ 
ment following the transfer must also begin on a word boundary. These 
properties of the CDC 6000 series of machines as well as the require¬ 
ment that instructions may not cross word boundaries except on the 
CDC 6600, required that many NOP instructions be included in the 
emitted code. With extensive study, it appears that the effect of these 
machine dependent features of the target system could be minimized 
by making a thorough study of them prior to any future efforts at 
completion and improvement of this compiler. 

It has probably become apparent to the reader that the optimiza¬ 
tions actually included in this compiler are relatively few. The 
facilities actually included were, however, required for solution of 
the register allocation problem. 

D. REASONS FOR OPTIMIZATION 

The facilities for optimization of emitted code included in the 
CDC XPL compiler actually accounted for a major part of the develop¬ 
ment time. This was, however, required by the register structure of 
the CDC 6500, which is obviously quite complex, as illustrated in 
Table 2. What might not be so obvious is that certain often used 
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operations require registers which are in short supply. Any store to 
memory, for instance, requires registers X6 and A6 or X7 and A7 
so that the compiler fails if neither of these register groups is 
available. The CDC machines have no fixed point multiply and divide 
instructions and the use of the floating-point routines requires extensive 
preparation of the data and restricts data values,. It was therefore 
decided to compute subscripts and perform multiplications by success¬ 
ive addition. Division and modulus operations are computed using 
successive subtractions. This put such a load on available registers 
that statements containing subscripted variables on both sides of the 
replacement could not be handled, which, of course, is unacceptable. 

Several attempts were made to define simple register allocation 

o 

procedures which would reduce these restrictions but it was not until 
the expression processing system currently implemented was devised 
that an adequate register allocation facility resulted. Thus, the 
current optimization procedures were included because the register 
structure required them. 

It was the expression handling procedures, then, that provided 

the register allocation facilities required for the compiler to operate 

at all. What is more important, however, is that these procedures 

resulted in a unification of the whole compiler by making expression 

processing the key to most of the code emission in the system. It 

was this unification and centralization of expression handling in a 

single group of general procedures which greatly simplified the 

remainder of the compiler construction. 
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IV. OPTIMIZATION IN CPC XPL 


A. INTRODUCTION 

Implementation of the optimization and register allocation con¬ 
cepts presented above is not extremely difficult but requires extensive 
additions to the compiler. Procedures of this type perform many 
operations for each result they produce and are therefore quite difficult 
to test for correct operation. It was therefore decided to produce a 
heirarchy of procedures with increasingly complex functions to per¬ 
form the optimization. Each of the more complex procedures was 
built using the simpler, more basic procedures. 

The remainder of this section will concern the actual construction 
of the optimization and register allocation facilities in the CDC XPL. 

B. REGISTER ALLOCATION 

The basic functions required for register allocation on a CDC 
6000 computer are: 

1. changing register status and recording changes, 

2. testing register status, 

3. storing the contents of a register, temporarily, and 

4. restoring the contents of a temporarily stored register. 

These functions are performed by the SRI, INUSE, HELD, SRT, RRT, 
HOLDER, LR, SR, LRD, UNHOLD, RSR, and GSR procedures Ulus- 
trated in Appendix C. The RELEASE and HOLD macros also perform 
basic register allocation functions. The higher-level procedures 
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SFR, SAR, RAR, and RTRT perform more complex register allocation 
functions and are also presented in Appendix C. The use of these 
procedures is complemented by the set of variables listed in the 
Appendix under "Register Allocation Variables. " 

The general register allocation functions used in CDC XPL are: 

1. searching for a register of a specific type, 

2. storing all in-use registers, 

3. restoring all registers which were previously stored, and 

4. register-to-register transfers. 

The performance of these functions is aided by facilities which main¬ 
tain register usage statistics. This is done to reduce the number of 
temporary store operations which must be performed for complex 
expression evaluation. 

As noted earlier, the registers on the CDC 6000 computers have 
many special purposes. It was decided that register references in 
the CDC XPL compilers should be symbolic, by type, whenever 
possible. In fulfillment of this requirement, the general register 
allocation functions are called using a register type indicator, and 
return the number of an available register of the proper type. All 
code necessary for temporary storage of register contents and 
restoration of previous values is emitted by these procedures. Out¬ 
side these procedures, no references to specific registers are 
permitted. In Table 2, the CDC 6000 registers are listed in groups 
by function. Each of these groups has been assigned a "symbolic 
type number" in the CDC XPL compiler. The equivalence of the 
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numbers to the groups listed in Table 2 is documented by a comment 

in the listing presented in Appendix C. 

In addition to processing all register allocation references, the 
register allocation functions maintain a record of all expressions 
associated with registers. This is done to simplify maintenance of 
correct location information about expressions being processed and 
to link the register allocation routines with the expression processing 
procedures. 

C. OPTIMIZATION AND EXPRESSION HANDLING 

In addition to the physical link between the register allocation 
routines and the expression handling routines just mentioned, there is 
a logical link between them. An important aspect of optimization on a 
GDC 6000 series computer is the problem of keeping as many of the 
active expressions within registers as possible. This part of the 
optimization is actually handled by the register allocation procedures. 

A record of the current location of an expression is, however, main¬ 
tained by the expression handling routines, as well. 

Expressions encountered within a program are each assigned a 
unique number which remains with them for as long as they exist. 

Any value which is used in a computation or test or which is an inter¬ 
mediate or final result in any computation is an expression. The value 
represented by an expression may be an address or a data item, and 
it may currently be located in a register, a temporary storage location 
or in a permanent storage location. 
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It is sometimes necessary to provide a location for the result of 
a computation before the details of its evaluation are available. In 
these cases, an expression number, with its associated location in¬ 
formation, is assigned to the result of the computation before the code 
for evaluating the expression is emitted. When this occurs, it is 
sometimes possible to assign the result to a type of storage rather 
than to a specific location. For example, it may be useful to reserve 
an arbitrary temporary location, without knowing its specific address. 
This can be done by placing the location information directly in a 
block of information about the result, called the "expression group" 
for the result. It can also be done by placing the necessary informa¬ 
tion in an expression group of its own. This kind of expression group 
is different than that normally encountered since it contains informa¬ 
tion not about an expression itself, but information about information 
about the expression! An expression group of this type is said to 
contain information about a pseudo-expression. As an instance of 
this type of operation, suppose a pseudo-expression represents the 
location of some real expression. The expression group for the real 
expression contains the current location of the value of the expression 
at execution time. The expression group for the pseudo-expression, 
however, indicates that the location is a specific "A" register (Al, 

A2, A3, A4, or A5). Describing a register in this way is defined as 
a symbolic reference to the type of register needed. 
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Although implicit and explicit labels are not currently considered 
to be expressions, no increase in generality is required in the expression 
processing procedures to add them at some future time. References to 
extended core storage (ECS) and to symbolic and physical input/output 
unit address could also be included as valid expression locations in 
the future with little difficulty. The processing of expressions in the 
manner described above requires extensive facilities in the compiler. 

The expression processing facilities are organized in a manner 
similar to that used with the register allocation facilities. A basic 
set of functions necessary for processing expressions must include 
facilities to; 

1. create blocks to hold information about an 
expression, called expression groups, 

2. delete these blocks, 

3. change information in an expression 
group, 

4. retrieve information about an active 
expression, and 

5. locate an expression's description 
based on some property of the expression. 

The most efficient way of maintaining information about active 
expressions would be in an expression value table. Such a table 
would include information about the location of the expression's value 
at the present time and how the value was obtained. Because of the 
lirnit on the number of symb'ols allowable in an XPL program this 
information had to be kept in a list with several other groups of 
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information in CDC XPL. Because of the construction of the list. 


each expression group required several list elements. This require, 
ment made it necessary to add several special basic functions to 
provide for efficient searching of the expression value table. It was 
decided that when an expression was to be modified, it would be 
removed from the list so that subscripting could be avoided and 
multiple level addressing could be eliminated. When searching the 
expression group, this "detachment" operation was not deemed 
necessary. After modifying an expression group, it is again 
"attached" to the list of active expressions. 

The basic functions connected with expression group processing 
are performed by the GXN, FXP, GXF, CXF, GNXG, GXG, R, A, 
AXG,° DXG, and RXG procedures. Using these procedures, the 
higher-level expression processing functions, implemented by the 
AX, DX, LX, SX, and TX procedures, were developed. These 
functions involve; 

1. adding a new expression group, 

2. deleting an expression group which is no 
longer needed, 

3. loading an expression from a specified 
location, 

4. storing an expression in a specified 
location, and 

5. transferring the value of one expression 
to a location specified by a second 
expression. 
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An example of the use of the expression handling functions may be 
found in Appendix D. A study of Appendix C will relate additional 

information about these processes. 

In addition to the optimization provided by the expression process¬ 
ing procedures, a global optimization of the "DO WHILE 1" construct 
has been included in the CDC XPL compiler. This optimization is 
implemented by using an indicator called the FOREVER-INDICATOR. 

The term originates from the macro "DECLARE FOREVER LITERALLY 
'WHILE 1';" found in many XPL programs. This construct is used in 
"DO FOREVER" statements to provide loops which are exited only 
when some programmed condition occurs. When a constant "1" is 
parsed, the FOREVER_INDICATOR is set. It is reset if any other 
primary is parsed or if the constant "1" is used in any computation. 
The indicator is tested before generating the conditional branch 
while processing the "DO WHILE" statement and some code is omitted 
if it is found to be true. It would undoubtedly be instructive for the 
reader to refer to the listing of SYNTHESIZE in Appendix C at this 
point, noting the number of places the value of the FOREVER_ 
INDICATOR is modified. This will provide a good illustration of 
simple global optimization. 

The optimization resulting from the introduction of bit and 
character-string maximum lengths is much simpler to implement 
than the other optimization techniques. A study of the processing 
performed in the cases of SYNTHESIZE relating to the declaration 
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of bit and character-strings will illustrate this point and show how 
much optimization is accomplished. 

In general, then, the optimizations provided by the CDC XPL 
compiler are only those required for its implementation. The 
expression processing was included to provide an adequate register 
allocation scheme while the other optimizations gained back some of 
the space lost during code generation because of hardware limitations. 


< 
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V. CONCLUSION 


This thesis is the second step in bootstrapping an XPL compile 
from the IBM System/360 to CDC 6000 series machine. It involved 
attempts to improve the XPL grammar and to directly emit machine 
code for the CDC 6000 series machines by a compiler operating on an 

IBM System/360. 

The optimization included in the compiler was included because 
it was required for adequate register allocation and reasonable 
program size. The optimization procedures were, however, of such 
a nature that their use for general optimization can easily be imple- 
mentpd in the future* 

The major problems encountered in the development of the compiler 
involved the design of a usable register allocation scheme along with 
methods of overcoming the hardware incompatibilities between the 
IBM System/360 and the CDC 6000 series machines. 

The program thus developed would seem to provide an excellent 
starting point for future research and development in preparing a 
much needed compiler development tool for the CDC 6000 series 
computers. 
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Table 1 


A Comparison of XPL and PL/l 


Groups 

Groups are not blocks and may not contain declarations 
in XPL. 

Procedures 

XPL procedures may not return array values (except 
intrinsic procedures). 

XPL procedures may not be pseudovariables (except 
intrinsic procedures). 

XPL procedures may not be recursive. 

XPL procedures may not be reentrant. 

XPL procedures must be defined before use, 

XPL procedures may return character string, bit string, 
logical, or fixed binary results. 

XPL procedures may be used as functions or subroutines. 
Variables declared in XPL procedures may have initial 
values and are STATIC. 

Parameters and Arguments 

Parameters with no equivalent arguments are given 
default values in XPL. 

In CDC XPL, parameters may have defined default 
values. 

All XPL arguments are called by VALUE. 

An array name may be a parameter in XPL. 

Conversions are always attempted in XPL to make 
argument proper type for parameter. 

Structure . 

An XPL program is not a procedure but may contain 
a RETURN statement. 

Input/Output 

Only character strings may be put out. 

Conversion from numeric is automatic. 

No formatting is provided in XPL. 

I/O done with FILE, INPUT, and OUTPUT intrinsics in XPL. 
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Intrinsics 

Intrinsic procedure numes are not reserved in . 

SOME intrinsics are pseudovariables in XPL. 

BYTE and SUBSTR are NOT pseudovariables in XPL. 
UNSPEC is not provided in XPL . 

SUBSTR operates only on CHARACTER strings in XPL- 
Concatination is a function in XPL and cannot be used 
recursively. 

Reserved words 

Structural words are reserved in XPL . 

Cond itional Statements 

The conditional statements in XPL are the same as 
those in PL /I 

Character String Definition 

All character strings in XPL have the VARYING attribute 
implicitly. In IBM 360 XPL, no string maximum size is 
specified in the program and all strings have a maximum 
length of 256 characters or 2046 bits. 

In CDC XPL, PL/I type string maximum size specifications 
are permitted but not required and the default string size 
is 300 characters or 1800 bits. 

Bit String Definitions 

XPL bit strings are considered numeric when: 
on the IBM 360, they are less than 33 bits long or 
on the CDC 6000, they are less than 60 bits long. 

XPL bit strings are considered character strings when: 
on the IBM 360, they are over 32 bits long or 
on the CDC 6000, when they are over 60 bits long. 

Floating-Point Numbers 

Not available in XPL- 

Pack ed Decimal Numbers 
Not available in XPL. 

Arrays 

XPL arrays may only be singly subscripted. 

Based Variables and Pointers 
Not available in XPL . 

Allocation 

All XPL variables are STATIC. 
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C ompile-Time Facilities 

The LITERALLY declaration in XPLr allows the global 


definition of macros* 


Grouping 

One level of grouping is allowed in XPL . 

In IBM 360 XPL, the INITIAL attribute may not be 
used with a grouped declaration. 

Initialization 

In XPLVthe INITIAL attribute may be applied to any 
variable when declared. 

Declarations 

A variable must be declared before use in XPL- 

Conversions _ 

The following conversions are implicit in XPL; 

logical to numeric 
numeric to logical 
numeric to character string 
all other conversions are illegal- 

Labels 

Labels are allowed in XPL. 

Li mitations of XPL 

Maximum Symbol table size in IBM 360 XPL is about 415 symbols- 
No more than 40 macros may be defined in XPL- 
The number of temporary and defined strings in an XPL 
program is limited* 

String Handling 

IBM 360 XPL uses a free string area to hold strings 
and a descriptor is required for each string- 
CDC XPL uses fixed locations for strings. 

Macros 

In IBM 360 XPL, there is a separate limit from that 
of the symbol table and macros are globally defined. 

In CDC XPL, macros are treated like any other variable. 

Multiple Assignments 

Allowed in XPL but restricted by register allocation 
on the IBM 360. 















Complexity of Computations ^ 

Limited by register allocation scheme on IBM 360 only 


Purpose _ 

PL/1 is general purpose while XPL is designed as a 

compiler development tool. 

Optimization 

Optimization in XPL is virtually local. 

Debu gging Facilities 

Only a TRACE and programmer developed debugging 
facilities are available in XPL. 

C ore Requirements 

XPL currently requires at least 150K bytes for compile 
or execution on the IBM 360. 

XPL will require about 30000 words to execute on the 
CDC 6000. 

C ompile Rate 

Quite fast on the IBM 360. 

Relatively fast on the CDC 6000. 

Execution Time Error Facilities 

Trace is only available XPL facility. 

Cnly Input/Cutput errors detected by program. 

General Cperation 

XPL operates under a sub-monitor which handles 
Input/Cutput, errors, and tracing. 

User Program Doc umentation Available 
A Symbol Table is available- 

Good hardware and compiler facility usage statistics 
are available. 

No Cross-reference listing is available. 

Compile-Time Error Messages 

XPL has clear, concise compile time error messages. 

Cne error may easily trigger many messages in the 
IBM 360 XPL compiler. 

The CDC XPL compiler differentiates between WARNING, 
ERRCR, and SEVERE ERRCR conditions and prints appropriate 
messages. 
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Added XPL features 
’ DO CASE statement 

Access to some Compiler Variables 

Reference to data at absolute logical addresses allowed 
in XPL. 

IBM 360 machine code may be emitted INLINE with the 
IBM 360 XPL compiler. 
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Table 2 



Register Usage on the CDC 6000 

xo 

used for Extended Core Storage transfers 
and as a general work register 60 bit length 

AO 

used for extended core storage transfers 
and as a general work register 18 bit length 

Al, XI 
A2, X2 
A3. X3 
A4, X4 
A5, X5 

used for loading of data from memory 
loading an A register causes the data from 
the memory location whose address was so loaded 
to be placed in the associated X register. 

When the A register is used as the source of a 
value, no change to the associated X register 

0 

occurs. 

Movement of data to or from the X register causes 
no change to the associated A register's contents. 
X registers also used for computations 

The X registers are 60 bits long- 
The A registers are 18 bits long. 

A6, X6 
A7, X7 

Used for storing results into memory- 
Loading an A register causes the data in the 
associated X register to be placed in the 
memory location whos e address was placed in 
the A register. 

When the A register is used as the source of 
data for a register_to-register transfer, no 
memory operation occurs. 

Movement of data to or from an X register 
either by computation or register-to-register 
transfer, has no affect on the associated A 
register. 

The X registers are 60 bits long • 

The A registers are 18 bits long. 

BO 

May be used as the source of an 18-bit constant 
zero. 

May not be used as the destination of a register- 
to-register transfer or the result of any 
computation. 
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B1 - 


Note 


B7 Used for comparisons, indexing, and computations 
with no more than 18-bit operands. No multiplica¬ 
tion, division, or logical operations allowed. 
Comparisons are allowed between values in these 
registers * 

X register comparisons are inade to zero only (positive, 
negative, zero, or not zero comparisons may be 

made. ) 
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Appendix A 

McKeeman's BNF for XPL 

^program> 

: ; = -^statement list > 

'^statement list> 

; : = ^statement > 

1 ^-statement list> <statement> 

^statement> 

; : = ^aasic statement> 

1 -rif statement> 

<fbasic statement > 

: ; = <assignment> ; 

1 <igroup> ; 

1 <;procedure definition> ; 

1 <return statement > ; 

1 <;call statement? ; 

1 .^^go to statement? ; 

1 <rdeclaration statement? ; 

1 ; 

l ?label definition? -Cbasic statement > 

<if statement> 

; ; = <if clause? ^statement? 

t <;if clause? -"true part? <statement> 

1 ? label definition? ^if statementv 

<if clause> 

. . = IF <'expression> THEN 

true part> 

; ; = <basic statement? ELSE 

<group> 

; ; = <rgroup head? -:ending? 

cTgroup head> 

::= DO ; 

1 DO <step definition? ; 

1 DO <while clause? ; 

1 DO Cease selector? ; 

1 cgroup head? ^statement? 

-/step definition> 

; : = <variable> -^replace? ^expression? 
citeration control? 

^iteration control> 

; ; = TO ^expression? 

1 TO cexpression? BY cexpression? 

awhile clause> 

: ; = WHILE c"expression? 

<case selector> 

j ; = CASE -rexpression? 


<procedure definition> ; : = ^-procedure head> ^^'statement list> 

lending > 
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<fprocedure head> 

: : = <procedure naine> ; 

L <procedure name> ^parameter list> ; 

<procedure fiame> 

: : = <label definition> PROCEDURE 

<^parameter list> 

. . = ^parameter head> <identifier> ) 

^parameter head> 

; : = ( 

1 .j'parameter head> <identifier> , 

<ending> 

::= END 

1 END <identifier> 

1 4label definition> <ending> 

<^label definition> 

; ; = <identifier> : 

^return statement> 

; ; = RETURN 

1 RETURN ^expression> 

<call statement> 

; ; = CALL <variable> 

<rgo to statement> 

: ; = ^go to> <variable> 

<go to> 

: ; - GO TO 

1 GOTO 

^declaration statement> 

: : = declare ^declaration element> 

1 <declaration statement> , 

<declaration element> 

<'declaration element> 

; ; = -ctype declaration> 

1 ^identifier? LITERALLY ^string-? 

<type declaration> 

: : = <identifier type> 

1 abound head? <number? ) <type> 

1 <type declaration? ^initial list? 

<type> 

: ; = FIXED 

I CHARACTER 

1 LABEL 

1 <bit head? <^number> ) 

^bit head> 

: : = BIT ( 

<bound head> 

; : = ^identifier? ( 

<initial list> 

: ; = <■ initial head? <constant> ) 
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^initial head> 


: : =: INITIAL ( 

1 < initial head^ 4 .constant> 


<assignment> 


; : = <:variable> <:replace> /expression> 
I ^left part> ^assignirLent> 


< r eplacO 
<left part> 

< expression> 


: : = <variable> , 

: ; = ^logical factor> 

1 ^expression> | <rlogical factor > 


< logical factor > 


= clogical secondary> 

1 <logical factor> & ^logical secondary> 


<logical secondary> 


: ; = <rlogical primary> 

1 -t <logical primary> 


<'logical primary? 


= ^string expression> 

1 <string expression> <relation> 

<string expression> 


^relation > ^ - 

I < 

1 > 

1 ^ 

I < 

1 > 

I 

I > = 


<’string expression? : : - 

I 


4 arithmetic expression> : : - 

1 

1 

1 

I 


^arithmetic expression? 

<string expression? |) 

-^arithmetic expression? 

< term? 

<rarithmetic expression? + <term? 
<'arithmetic expression? - <term> 
+ <term> 

<term? 


< term> 


: : = <;primary? 

I <rterm> * ^primary? 

I <term> / <primary> 

I <term? MOD ^primary? 
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<:primary> 

: : = .^constant? 

<:variable> 

1 ( -^expression> ) 

<variable> 

: : = ^identifier? 

1 <subscript head> ^expression? ) 

<subscript head> 

: ; = identifier> ( 

1 subscript head? <expression> , 

< constant?- 

: : = <rstring> 

1 «^number> 
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Appendix B 

The Improved XPL Grammar 

<program> 

; : = /^statement list? 

1 EXTERNAL -cxpc? 

^procedure definition? 

^xpc> 

: ; = ^colon> 

^statement list> 

; : = < statement^ 

1 < statement list"^ -^statement^ 

^statement> 

: ; = <basic statement^ 

1 if statement ? 

<basic statement? 

: ; = ^assignment? ^semicolon? 

1 ^ group? < semicolon? 

1 ^procedure definition? ^semicolon? 

1 <c call statement? ^semicolon? 

o 

♦ 

1 <go to statement? semicolon? 

1 -^declaration statement? < semicolon? 

1 -clabel definition? <basic statement? 

1 -rreturn statement? ^semicolon? 

1 <r semicolon? 

<if statement? 

9 

: ; = if clause? < statement? 

1 <if clause? < true part? -^statement? 

1 label definition? 4if statement ? 

' <if clause? 

; ; = IF <expression> THEN 

<true part? 

; : = “‘basic statement? ELSE 

<group> 

; : = ^for head? <rending? 

1 awhile head? ending? 

1 <case head? sending? 

1 -Cdo head? “^ending? 

<for head? 

: ; = •‘for? -< do variable? ‘•replace? 

-^for expression? 

1 -<for head? ^ statement^ 


45 







<'while head> 


4 case head> 


<do head> 


; : = ido while> <expression> <rs emicolon > 

I awhile head> <statement> 

; : = <'do case? <case expression> <semicolon> 
1 <case head> ^statement> 

: : = DO -^semicolon? 

1 ^do head> <statement> 


^ending> 


<£or expression'> 


^iteration control> 


: : = END 

1 END <procedure name> 

1 4label definition> <ending> 

: : = ^initial expression> <iteration control> 
<s emicolon > 

: : = <to> ^to expression> 

I -^to> ^to expression^ <by> 

<by expression> 


<^do while> 


DO WHILE 


^procedure definition> 


<procedure specification> ^ending> 


^procedure specification> 


: : = <^procedure head> <statement> 

1 <procedure specification> <statement> 


<procedure head> 


^procname spec> 
^proc param spec> 


< return statement> 


; : = ^procname spec> <semicolon> 

: ; I <procname speO <type> <semicolon> 
I. ^proc param speo ) <semicolon> 

I ^proc param speo ) <type> 

^s emicolon> 


: ; = < identifier > <;colon> PROCEDURE 


: : <'procname speo ( 

I <"proc param speo <identifier > 
I <proc param speo , 


: : = RETURN 

1 RETURN <expression> 


4call statement> 


: : = CALL 
I CALL 
I CALL 
I CALL 


^procedure name > 
<;ps eudoname > 
<procedural> 
<pseudocall> 
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< p r o c edu ra.1^ 

: : = ^procedure name? ^argument lists ) 

<pseudocall> 

. . — <■ pseudoname> ^argument list ' ) 

<argument list> 

: : = ( 

1 <:pax> 

1 ^ argument list> , 

1 argument list > <alcomma.'^ 

argument expression 

<alcomma> 

• • — > 

<’declaration statement> 

: ; = /declr> s declaration element > 

1 / declaration statement > 

<declaration element? 

declaration element> 

; : = ^type declaration? 

1 ^ label declaration > 

1 < identifier specifications < literally? 

string? 

<label declaration> 

; ; = ^identifier specification? LABEL 

^type declarations 

; ; = -cidentifier specification> type 

1 ^ initial head? srpih? 

1 <bound head? ^ type? 

< rpih> 

: : = ) 

< type > 

: : = FIXED 

1 BIT 

1 -^bit head? <number? ) 

1 -^^bit head? ) 

1 CHARACTER 

1 <char head> /number? ) 

1 /-char head’ ''' ) 

1 /external type? 

<external heads 

; : = EXTERNAL ( 

^bit heads 

: ; = BIT ( 

<char heads 

: : = CHARACTER ( 

<initial heads 

= /type declaration? /initial? sconstant 1? 
1 /initial head? /commal? /constant2> 
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<constantl> 

: = -:constant> 

<:constant2> 

; = ^constant> 


<comma'> 


<initial> 

: : = INITIAL ( 

1 DEFAULT ( 

abound head> 

; : = ^identifier specification > ( 

1 <;bound head ^number> ) 

1 abound head> * ) 

<identifier specifications 

; : = <identifier> 

1 <:parameter> 

1 ^identifier list> ■<lid> ) 

1 ^identifier list> ^ Ipm^ ) 

<identifier lists 

: : = ( 

1 ^identifier list? ^identifier? 

1 identifier list> <parameter? , 

<go to statements 

; ; = ^go to> ^identifier? 

1 ^go to? ^undefined label? 

0 

1 xgo to? /defined label? 

<go to> 

: ; = GO TO 

1 GOTO 

^assignment s 

; ; = ^variable? ^replace? <expression? 

1 <left part? ^assignment? 

<left parts 

: : = ^variable? , 

<replace> 

; : = = 

<label definition> 

; ; = <identifier? colon? 

1 ^undefined label? ^colon? 

< express ions 

; ; = /logical expression? 

1 /expression? OR ^logical expression? 

^logical expressions 

; ; = ^logical factor s 

1 -^logical expressions AND 
< logical factor^ 
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^logical factor > 


I 


/logical secondary> 
/logical factor > XOR 
/logical secondary/ 


/logical secondary> 

: : = 

/logical primary/ 

1 

NOT / logical primary > 

/.logical primary> 

; ; = 

/string expression> 

1 

/string expression/ /relation/ 
/string expression/ 

/string expression> 

: ; = 

/arithmetic expression/ 


1 

/string expression/ CAT 


/arithmetic expression> 


^arithmetic expression> 


/ term> 


1 

^arithmetic expression> + 


1 

^arithmetic express ion> 


1 

-f <.term> 


L 

^term> 

^ term> 

: ; = 

^primary> 


1 

^term> - /^primary> 


1 

<term> / /^primary> 


1 

<:term> MOD /rprimary> 

^primary > 

: ; = 

^constant > 


1 

<r variable > 


1 

/procedure name> 


1 

^procedural> 


1 

/pe/ ) 

^pe > 

; : = 

<pelp> <expres sion> 

<variable> 

: : = 

^scalar > 


1 

/C vector > 


1 

c ps eudoname > 


1 

<: ps eudocall> 

^scalar > 

; : = 

^bit string name> 


L 

<'fixed name> 


L 

cchar string name> 

< vector> 

: ; = 

/^subscript head> ) 

/^subscript head> 

; ; = 

^vector name> <pe> 
subscript head> , -^expr€ 


/term> 

<term> 


sion> 
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^vector na.me> 

: ; = 

^bit string array name? 

1 

^fixed array name? 


1 

<char string array name? 

<constant> 

: : = 

^string > 

1 

< number ? 

4relation> 

: ; = 

EQ 


1 

LT 


1 

GT 


L 

NE 


1 

NL 


1 

NG 


L 

LE 


1 

GE 

4 colon? 

; : = 

<periodc? . 

< s emicolon? 

: : = 

<commas> 

< declr ? 

: : = 

DECLARE 

< literally? 

: ; = 

LITERALLY 

^periodc > 

: : = 

• 

<commas > 

: : = 

9 

<lid> 

: : = 

< identifier ? 

< 1pm > 

: : = 

<pa rameter ? 

external type? 

! : 

EXTERNAL 

1 

<external head? <type? 


1 

^external head? LABEL 

4 pax > 

: : = 

( <argument expression' 

<argument expression? 

: : = 

-^expression? 

1 

<vector name? 

•< pelp’’ 

: : = 

( 

<to? 

: : = 

TO 

<for> 

t : = 

DO 
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^by> 

< d o ca s e > 

<case expression> 
.^do variables 
initial expression> 
^to expression> 

<by expression> 


; ; = BY 

; : = DO CASE 

; ; = ^expression> 

; ; = <variable> 

; ; = < expression> 

; : = ^expressions 
; ; = ^expressions 
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X P L 


COMPILER 


/* 


THE C D C 
AN XPL COMPILER FOR THE CONTROL DATA 6500 COMPUTER 


WRITTEN BY 
PAUL 0. DIEDRICH 
USN POSTGRADUATE SCHOOL 
MONTEREYf CALIFORNIA 
DECEMBER 1971 




VERSION 1 

THE CXCCM COMPILER IS DESIGNED TO COMPILE _ 
A 48 CHARACTER SET XPL LANGUAGE INTO CONTROL DATA 

6500tMACHINE^C0DE. COMPILER AND A DISCUSSION 

OF TKE ALGORITHMS USED WITHIN IT CAN BE FOUND IN 
THE THESES ENTITLED: 

'• AN INVESTIGATION INTO COMPILER GENERATION BY 
BOOTSTRAPPING TECHNIQUES » 

RONALD C. SMEDER 
USNPGSCOL 
JUNE 1971 

AND 

'• AM INVESTIGATION INTO THE DEVELOPMENT 
OF AN XPL COMPILER FOR THE CDC 6000 SERIES 

COMPUTERS ” 

PAUL 0. DIEDRICH 
USNPGSCOL 
DECEMBER 1971 

THE XCOM-ONE COMPILER IS WRITTEN IN THE XPL 
LANGUAGE DESIGNED BY W. M. MCKEEMAN, STANDFORD 
UNIVERSITY. FOR FURTHER INFORMATION ON THE XPL 
LANGUAGE OR COMPILER GENERATION SYSTEM CONSULT 
« A COMPILER GENERATOR "t BY MCKEEMAN, AND 
OTHERSf PRENTICE-HALL, 1970. 
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2 

a 

h-i 
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o 





f 


bnf represen 

XPL-6500 


T A T I a N OF 
LANGUAGE 


NOTE 

FROM 


lii 18 ikl«fE«?S*V^E i?8^A^ri8tif4^S?^5cTURES WHICH 

second^reason'^providePa more efficient^'^smal^r/and simpler 
COMPILER BY ALLOWING THE STANDARD ,P«*^9i9r?A? 

TO HANDLE THIS CHECKING INSTEAD OF REQUIRING SPECIAL 
SEMANTIC ROUTINES TO PROVIDE THESE SYNTAX CHECKS. 


Ln 

OJ 


/♦ 

/* 

/* 

/* 

/* 

/* 

/« 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/« 

/* 

/* 

/* 

/♦ 

/* 

/* 

/* 

/* 

/* 

/* 


(1) 
( 2 ) 

(3) 

(4) 

5) 

6) 

7) 

8) 

9) 

10 ) 
11 ) 
12 ) 

13) 

14) 

15) 

16) 

17) 

18) 

19) 

20 ) 
21 ) 

. 22 ) 

(23) 

(24) 

25) 

26) 

27) 

28) 

29) 

30) 
.31) 

(32) 

(33) 


*/ 


*/ 


<BASIC STATEMENT> 
<BASIC STATEMENT> 
STATEMENT> 
STATEMENT> 
STATEMENT> 
STATEMENT> 
STATEMENT> 
_ STATEMENT> 
STATEMENT> 
STATEMENT> 


<BASIC 
<BASIC 
<BASIC 
<BASIC 
<BASIC 
<BASIC 
<IF 
<IF 




^?Ka!J> ii: external^wB^^proceSure definition> 

/'YPr'^ ♦•= <rOLON> 

<STATEMENT LIST> : i= <STATEMENT> atcmcmt'v 

BBlt]!"|«>TEjrNlf^-^ nSeHT>^ EH.C0L0H> 

•= <GO TO STATEMENT> <SEMICOLON> , 

;= <DECLARATION STATEMENT> <SEMIC0L0N> */ 
:= <LABEL DEFINITION> <BASIC STATEMENT> */ 
:= <RETURN STATEMENT> <SEMICOLON> */ 

-- <SEMICOLON> . . 

CLAUSE> <STATEMENT> */ 


*/ 


<IF _ 

<IF CLAUSE> 
<TRUE PART> 
<GRGUP> 
<GROUP> 
<GROUP> 
<GROUP> 

<FOR HEAD> 
<FOR HEAD> : 
<WHILE HEAD> 
<WHILE HEAD> 
<CASE HEAD> 
<CASE HEAD> 
<D0 HEAO> 


= <IF 


STATEMENT> 

:= IF 


*/ 




<iF claOse> ktrUe part> <statement> 

<LABEL OEFINITION> <IF STATEMENT> 

. <EXPRESSION> THEN 4/^ 

<BASIC STATEMENT> ELSE */ 

<FOR HEAD> <ENDING> */, 

<WHILE HEAD> <ENDING> J^/ 

<CASE HEAD> <ENDING> ^ 

f?°<FnB^<Do'^VARUBLE> <REPLACE> <FOR EXPRESSION> 
•‘i^^DO^WHILEP^JeXPrIsSIONP <SEMICOLQN> »/ 

XsI'mICOLONP ./ 

= <CASE HEAD> <STATEMENT> */ 

DO <SEMICOLON>. 


*/ 


<00 HEAD> :U <D0 HEAD> <STATEMENT> 


«/ 













i* (34) <ENDING> 

(35) <ENOIMG> 

(36) <ENDING> 

(37) <FOR EXPRESSION> 

' <SEMICOLON> */ 

/* (38) <ITERATION 

‘ <ITERATION 
<D0 WHILE> 
<PROCEDURE 
<PROCEDURE 

<proc:edure_ 

<PROCEDURE HEAD> 
<PROCEDURE HEAD> 
<PROCEDURE HEAD> 
<PROCEDURE HEAD> 
<PROCNAME SPEC> 


= END */ 

= END <PROCEDURE NAME> */ 

= <LABEL DEFINITION> <ENDING> 
:= <INITIAL fXPRESSION> 


sfs / 

<ITERATION 


CONTROL> 


/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/if 

/if 

/if 

/* 

/* 

/« 

/* 

/* 

/* 

/if 

/if 

/if 

/if 

/* 

/# 

/* 

/* 

/* 

/* 

/if 


(39) 

(40) 

(41) 

(42) 

(43) 

(44) 

(45) 

(46) 

(47) 

(48) 

(49) 

(50) 

(51) 

(52) 

(53) 
(54 
(55) 

56) 

57) 

58) 
.59) 
(60) 

61) 
62) 
.63) 

(64) 

(65) 

( 66 ) 


expression> 

EXPRESSI0N> 


if/ 

<BY> 


<BY EXPRESSI0N> ♦/ 


C0NTR0L> ::= <T0> <T0 
C0NTR0L> <T0> <T0 

npPTN?T'rnw>^* •= <PR0CEDURE SPECIFICAT10N> <ENDING> */ 


*/ 


'.■'s'^pDhrwAME SPEO <SENIC0L0N> 

•= <PR0CNAME SPEO <TYPE> <SEMICOLON> 

*- <PRDC PARAM SPEO ) <SEMIC0L0N> f/ 

:= <PR0C PARAM SPEO ) <TYPE> <SEMIC0L0N> 


<PR0C PARAM SPEO 
<PR0C PARAM SPEO 
<PR0C PARAM SPEO 
<RETURN STATEMENT> 
<RETURN STATEMENT> 

<CALL STATEMENT> : 

<CALL STATEMENT> : 

<CALL STATEMENT> ' 

<CALL STATEMENT> 
<PR0CEDURAL> 
<PSEUD0CALL> ::= 
<ARGUMENT LIST> 
<ARGUMENT LIST> 
<ARGUMENT LIST> 
<ARGUMENT LIST> 

<declaration"statement> 
<0ECLARATI0N STAIEMENT> 


= <lbENTIFiER> <c6LbN> PROCEDURE 
= <proc'^param’'spec.> <I0ENTIFIER> 






if/ 


*/ 

*/ 


= <PRCC PARAM SPEO , 

:= RETURN 

:= RETURN <EXPPbSSigN> 

= CALL <PR0CEDURE NAME> 

= CALL <PSEUD0NAME> */ 

= CALL <PR0CEDURAL> */ 

= CALL <PSEUD0CALL> J^{ 

<PR0CEDURE NAME><ARGUMENT LIST> 

<PSEUD0NAME> <ARGUMcNT LIST> ) 


if/ 


if/ 


= ( 


<PAX> */ 
<ARGUMENT 
<ARGUMENT 
*/ 


LIST> 

LIST> 


» */ 
<ALC0MMA> 


<ARGUMENT EXPRESSI0N> */ 


/if 

/if 

/if 

/if 

/if 

/if 

/if 

/if 

/if 


<DECLARATI0N ELEMENT> 

(67) <DECLARATI0N EL|^ENT> 

(68) <DECLARATI0N ELEMENT> 

(69) <DECLARATI0N ELEMENT> 
<STRING> 


if/ 


= <DECLR> <DECLARATigN |LEMENT> */ 
;= <DECLARATI0N STATEMENT> * 

<TYPE DECLARATION^ */ 

<LABEL DECLARATI0N> f/ 

^IDENTIFIER SPECIFICATI0N> 


<LITERALLY> 


(70) 

(71) 

(72) 

(73) 

(74) 

(75) 

(76) 

(77) 

(78) 


■<LABEL DECLARATI0N> 
<TYPE DECLARATI0N> 
<TYPE DECLARATI0N> 
<TYPE DECLARATI0N> 


<RPIH> 

<TYPE> 

<TYPE> 

<TYPE> 

<TYPE> 


) */ 
FIXED 

BIT */ 
<BIT HEAD> 
<BIT HEAD> 


:= <IDENTIFIER SPECIFICATI0N> LABEL 
= <IDENTIFIER SPECIFICATION> <TYPE> 
= <INITIAL HEAD> <RPIH> */ 

= <B0UND HEAD> <TYPE> */ 


if/ 
♦ / 


if/ 

<NUMBER> ) =«'/ 

♦ ) */ 














/♦ 

/* 

/* 

/* 

/* 

/=«= 

/* 

/* 

/* 

/« 

/* 

/* 

/* 

/* 

/=«' 

/* 

/* 

/* 

/* 

/* 

/* 

/# 

/* 

/# 

/* 

/« 

/* 

/* 

/* 

/* 

/* 

/* 

/« 

/♦ 

/:«< 

/# 

/={c 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/« 


(79) 

(80) 
(81) 
(82) 

(83) 

(84) 

(85) 

( 86 ) 
(87 
(88 
(89 
(90 
(91 
(92 
(93 
(94) 
(95 
(96) 
(97 
(98 
(99 
(100 
(101 
(102 
(103 
(104 
(105 
(106 
(107 
(108 
(109 
.( 110 ) 
( 111 ) 
( 112 ) 

(113) 

(114) 

(115) 

(116) 
(117) 


<TYPE> CHARACTER v 

<TYPE> :i= <CHAR HEAD> <NUMBER> ) 

<TYPE> <CHAR HEAD> * ) , */ 

<TYPE> ::= <EXTERNAL TYPE> */ 

<EXTERNAL HEAD> ::= EXTERNAL ( 

<BIT HEA0> ::= BIT ( */ 

<CHAR HEAD> : CHARACTER ( 

<INITIAL HEAD> ::= <TYPE DECLARATION^ 


*/ 


*/ 


<INITIAL HEAD> ^ ^L 

<C0NSTANT1> ::= <C0NSTANT> 
<C0NSTANT2> ::= <C0NSTANT> 
<C0MMA1> ::= , 

<INITIAL> INITIAL ( 

<INITIAL> ::= DEhAULI 
<B0UND HEAD> 

<B0UND HEAD> 

<IDENTIFIER^SPECIFICATION> 
<IDENTIFIER SPECIFICATION^ 
<IDENTIFIER SPECIFICATION^ 
<IDENTIFIER SPECIF ICATI0N> 


HEA0> 

«/ 


<INITIAL> <C0NSTANT1> */ 


<C0MMA1> <CONSTANT2> 


*/ 

*/ 

= <IDENtlFIER SPECIFICATION> 
= <BQUND HEAD> <NUMBER> ) 

“ <bounp.head> 

<PARAMETER> 
<IDENTIFIER 
ODENTIFIER 


<IDENTIFIER LIST> 
<IDENTIFIER LIST> 
<IDENTIFIER LIST> 
<G0 TO STATEMENT> 
<G0 TO STATEMENT> 
<G0 TO STATEMENT> 
<G0 T0> 00 TO 
<G0 T0> GOTO 


= ( 


*/ 


*/ 

*/ 

* / 

list> <lid> 

LIST> <LPH> 


<IDENTIFIFR LIST> <IDENTIFIER> » 
<IDENTIFIER LIST> <PARAMETER> , 
<G0 T0> <IDENTIFIER>^^^, 

<G0 T0> <UNDEFINED LABEL> /“/ 
<G0 T0> <DEFINE0 LABEL> */ 

<ASSiGNMENT> :<y^§IAgLE> <REPLACE> <EXPRESSION> 
<ASSIGNMENT> ::= PART> <ASSIGNMENT> #/ 

<LEFT PART> ::= <VARIABLE> ». */ 

IliBS? ii: lipAESS.ON> 

^'b?6SS.0N> =:= <LOGJCAL FACT0R> , 


*/ 




*/ 


♦/ 


*/ 


<LOGICAL EXPRESSION> 
<LOGICAL FACTOR> 

(118) <LOGICAL FACTOR> 

(119) <LOGICAL 

(120) <LOGICAL 

(121) <LOGICAL 

(122) <LOGICAL 

(123) <LOGICAL 

<STRING EXPRESSION^_ 

(124) <STRING EXPRESSION> 


FACTOR> = 
SECONDARY> 
SECONOARY> 
PRIMARY> : 
PRIMARY> : 


<LOGICAL FACTOR^^^XOR <LOGICAL SEC0NDARY> */ 

iU NOT^<LC!GICAL^’pRIMARY> * */ 

= <STRING EXPRESSION> 

= <STRING EXPRESSION> <RELATION> 

::= <ARITHMETIC EXPRESSION> */ 












f 


Ul 


/* 

/* 

/* 

/# 

/* 

/* 

/* 

/* 

/=«' 

/* 

/* 

/« 

/* 

/* 

/* 

>. /« 

/* 

/« 

/* 

/« 

/* 

/’!' 

/* 

/* 

/* 

/« 

/=<' 

/* 

z* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/# 

/* 

/# 

/* 

/# 

/* 

/# 


(125) <STRING 
<ARITHMETIC 


(126) 
(127 
(128 
( 129 
(130 
( 131 
(132 
(133 
( 134) 
(135 
(136. 

(137) 

(138) 

(139) 

(140) 

(141) 

( 142 

143 

144 

145 
146. 
147) 
148 
149. 
150) 

151 

152 
153. 

.154) 

(155) 

(156) 

(157) 

(158) 

(159) 

(160) 
(161) 
(162) 

(163) 

(164) 
( 165 
(166 
(167) 
(168 
(169 
(170 
(171 


<ARITHMETIC 
<AR1THMETIC 
<ARITHMETIC 
<ARITHMETIC 
<ARITHMETIC 
<TERM> 
<TERM> 
<TERM> 
<TERM> 
<PRIMARY> 
<PRIMARY> 
<PRIMARY> 
<PRIMARY> 
<PRIMARY> 
<PE> ::= 


EXPRESSI0N> 

EXPRESSI0N> 


<STRING 


EXPRESSION> CAT 


<VARIABLE> 
<VARIABLE> 
<VARIABLE> 
<VARIABLE> 
<SCALAR> : 
<SCALAR> : 
<SCALAR> : 
<VECT0R> : 
<SUBSCRIPT 
<SU6SCR1PT _ 
<VECTOR NAME> 
<VECTOR NAME> 
<VECTOR NAME> 
<C0NSTANT> 
<CONSTANT> 
<RELATI0N> 
<RELATION> 
<RELATIOK> 
<RELATION> 
<RELATION> 
<RELATION> 
<RELATION> 
<RELATION> 
<COLON> ::= 
<SEMIC0L0N> 
<DECLR> 
<LITERALLY> 
<PERI0DC> : 
<COMMAS> 
<LID> 

<LPM> 


EXPRESSION> 
EXPRESSI0N> 
EXPRESSIQN> 
EXPRESSI0N> 
EXPRESSI0N> -- 
<PRIMARY> */ 

<TERM> * <PRIMARY> 
<TERM> / <PRIMARY> 
<TERM> MOD <PRIMARY> 
<CnNSTANT> */ 

<VARIABLE> */ 

<PROCEDURE NAME> , 
<PROCEDURAL> */ 

<PE> ) 

<PELP> <EXPRESSION> */ 


<ARITHMETIC*EXPRESS10N> + <TERM> */ 
<AR1THMETIC EXPRESSION> - <TERM> */ 
+ <TERM> */ 

- <TERM> 


«/ 






= <SCALAR> */ 

= <VECT0R> «/ 

= <PSEUDONAME> ’*'/ 

= <PSEUDOCALL> */ 

<BIT STRING NAME> */ 

= <FIXED NAME> */ 

= <CHAR STRING NAME> */ 

= <SUBSCRIPT HEAD> ) */ 

HEAO> ::= <VECTOR NAME> <PE> 
HEAD> ::= <SUBSCR1PT HEAD> ♦ 

= <BIT STRING ARRAY NAME> , 
= <FIXED ARRAY NAME> 

= <CHAR STRING ARRAY NAME> 


<EXPRESSION> 


♦ / 


. <STRING> */ 

:= <NUMBER> 

EQ *Z 

:= LT */ 

:= GT 

:= NE */ 

:= NL */ 

i~ NG */ 

:= LE */ 

:= GE */ 

<PERIOOC> . */ , 

::= <COMMAS> . */ 
DECLARE */ 

::= LITERALLY 

= . 

, - - f */ 

:= <IDENTIFIER> */ 

:= <PARAMETER> */ 


*/ 


















/* 

/* 

/* 

/♦ 

/* 

/* 

/* 

/* 

/* 

/♦ 

/* 

/* 

/* 


172 

173) 

174) 

175) 

176) 
.177) 

(178) 

(179) 

(180) 
(181) 
( 182) 

(183) 

(184) 

(185) 

(186) 
(187) 


<EXTERNAL 
<EXTERNAL 
<EXTERNAL 
<PAX> 
<ARGUMENT 
<ARGUMENT 
<PELP> : 
<T0> 
<FOR> 

<BY> 


ii: <TYPp . ./ 

TYPE> ::= <EXTERNAL HEAD> LABEL ) v/ 

, <ARGyM|NT ,, 

:= <VECtOR NAME> */ 


EXPRESSION> 

EXPRESSI0N> 

( */ 

= TO */ 

:= DO 
= BY ’!'/ 

<CASE^EXPRESSION>^::= <EXPRESSION> */ 

<?NITIAL^EXPRESSrON>^: := <|XPRESSION> ’«'/ 

il°, ii: Jifpf.iliiSK? i' 


ui 

-sj 


/» THE FOLLOWING CARDS^APE^PR0DUCE0^BY^THE^XPL-360^SYNTAX^ 

WITHIN THIS COMPILER. */ 


PRE-PROCESSOR, 
PARSING ALGORITHM 


TABLES FOR AP VERSION OF 20 NOV 1971 


npri ARE NSY LITERALLY *150*, NT LITERALLY 
DECLARE V(NsW CHARACTER INITIAL ( •<ERRgR: 


•EQ* , 

•END* 


I I 


t z = • 




f . I 


t ' - - » • / • t • . • » 

GTS SES •NLS SG* 

* 1 ^ ivnoi 


IF 


TOKEN = 0>' 


.. 

, •1u•, 'OR *» 

'BY*, *_U'» 

ynR'. 'NOT*. 'CAT*, 'MOOS 'THEN*, ^ELSE', 

'WHILES •CTYPn,- •DCTII13M# 


, 'LE', 


»DO', 'GOS 'TOS 


•GE* , 

, wnn I 


•LABEL', 'FIXED', 'RETURNS 


•LT' , - 

, 'BIT', 'AND' 

•<PROCEDURE NAME>', 'KUNDEFINED LABEL>', '<BIT STRING NAME>', 

iil^SRlI^ARRAFrUMEp/pcpR^ 

•<DFCLR>* ’^<Go'^TO>'','^^<ENDik>S^’'<COMMAl>S°'^<SCALAR>S 

‘.^ffi'^CASE^ ‘ • <?UOMmU' :"^5?Sit¥^L^ ;^'?PRIM?R;^ ,^'<PERIODi^ , 

’.<VARIAlLE>i’ l^g^LATIONV; I<STAT EMENT^’, *' <SEMICOLCnS . 
<YAR1A8LE>' , .^r<cASE HEAD>', •<LITERALLY>', 

iltfoKisks. '"feisirgNj. . 


•<GRbUP>', 







•<PSEUDaCALL>* t 
•<IF STATEMENT>', 
•<3Y EXPRESSION>*t 
•<£XTERNAL TYPE>', 
KCALL STATEMENT>' 
•<LOGICAL FACTOR>* 


HEAD>'» '<DQ VARIABLE>|^i, ' <yECTOR NAME>' 


•CTO EXPRESSION>*» 
•CARGUMENT LIST>*, 


•CBOUND - . 

•CINITIAL HEAD>* t 

•CEXTERNAL HEAD^'• CSTATEMENT’L t ST> * t ; 

, 'CFOR EXPRESSIONS, :<PROCEDURE HEADS, 

, 'CSUBSCRIPT HEAD>', '<BASIC STATEMENTS, 

TD ^TATFMFNt>». »<CASE EXPRESSION>', 'CPROC PARAM SPEC>*, 
•CIDENTIFIER LIST>', 'CLOGICAL PRIMARY>’, ’CLABEL DEFINITION^ , 
•CRETURN STATEMENT>J, ’^TYPE DECLARATIONS, 

•CLABEL DECLARATiaN>’, ‘CLOGICAL SECONDARYS, 

•CSTRING EXPRESSION>', ‘CINITIAL EXPRESSION>•, 

•CLOGICAL EXPRESSION>‘, 'CARGUMENT EXPRESSION^*, 

' CDECLARAT ION ELEMENT>', 'CPROCEOURE DEFINITIONS, 

*^nFri ARATION STATEMENTS, 'CARITHMETIC EXPRE SS I ON> * , 
•CPROCEDURE SPEC IF I CATION>•, 'CIDENTIFIER SPECIFICATION>,) 


DECLARATIONS^', 'CITERATION CONTROL>' 


_ ■ , •' 
INITIAL ( 1, 
54, 55, 56, 


DECLARE’^V^INDEXI 24) FIXED 
47, 507 50, 51, 54, 54, 

DECLARE CKNSY) 3IT(124) IN 

••( 2 ) 00000 00000 00000 00000 00000 

00000 00000 00 ”, 

"(2) 02232 22220 

00000 00000 00 ", 

"(2) 02322 03300 
22330 30333 33", 

••( 2) 02320 03302 
33330 30333 33", 

"( 2 ) 01100 00000 
00110 10111 11 ", 

••(2) 00200 02200 
00220 20222 22", 

• ••( 2 ) 00100 00000 
00110 10111 11 ", 

••( 2 ) 00100 00000 
00110 10111 11 ", 

"( 2 ) 00100 00000 
00110 10111 11 ", 

••( 2 ) 00020 00002 
02220 02222 22 ", 

'•( 2 ) 00100 01100 
00110 10111 11 ", 

"( 2 ) 00010 00000 

00220 00222 22 ", 

••( 2 ) 00000 00000 

00000 00000 00 ", 

"( 2 ) 00200 02200 
02222 22222 22 ", 

"( 2 ) 00100 01100 


10 , 

58, 


24, 

60, 


32, 

60, 


37, 

60, 


40, 

60, 


41, 

60, 


44, 

61, 


00000 00000 00000 00000 00000 

00022 22222 22220 03220 22200 00023 02203 02032 

00000 00000 00000 02003 00000 00022 00002 33020 

00000 00000 00000 00003 00000 00000 00000 33000 
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00000 00000 00000 00000 00000 00000 00000 11000 

00000 00000 00000 00000 00000 00000 00000 11000 

00000 00000 00000 00000 00000 00000 00000 11000 

22200 00000 00002 20000 00022 20000 20020 00200 

00000 00000 00000 00001 00000 00000 00000 11000 

00000 00000 00000 OCOOO 00000 01100 00000 00000 

00010 00000 00000 00000 00000 00000 00000 00000 

00000 00000 00000 00002 00000 00000 00000 22000 

00000 00000 00000 00001 00000 00000 00000 11000 
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0 (M OO OO OO OO Oslo OO OO oO oO oo oOoo r-<00OfNJO*-HOC oOO (MooO oo oo o o 
OfvJOOOOOOOOCMOOOOOOOOOOOOOOOr-HOOOCMOi-iOOOOOCMOOOOOOOOO 
CNJO^OOOOOOOOOOOOOOOOOOOOO 
OOOOOOslOOOOOOOr-tOCNJr-iOOCMOOOO 
OCMO^^OOOOOOCMOOOOOOOOOOOOOOO'-HOOOCMOi-HOOOOoogOOOOOOOOO 
O CM O O O o O f\| O og CM r-i o J O CM O <-» Q r-H O CM O O O •"» ,- 1 0 OsJ OO ,-1 CM O i-t O fM OsJ ^ O ^ O .-t O O O CM 

O O o O OO O .-40 O fM o O O O OO .-to O Oo O o O O r-io O O C\IO .-to O O o o CM o O O O O OO o O 
OCMOOOOOcMOOOr-40000000.-iOcMOOOOOOOOOOOrsjOf-40000000.-tOOQcM 
OOOOOOOOOOOOQOOOOOOOOOOO 
OOOOOOOOOOOOOOOOOOOOOOOO 
O^O-^O^O^O^CM^O—‘O^O^O^O^O-^O^t-i^O—CM—*.-4—*0-^0^CM—o—O^O^O^ 
O fNJ O <\J o CM O CM O CM CM fM O rg O CM O og O CM O CM O CM o CM I-H CM O CM CM CM f-4 CM o (M o CM CM CM O CM O CM O OJ O CM 
oO w o w o w o CM OOOOO w o W o w f-t ^ o CM ^ W o ^ O CM O W o ^ .-I w ^ w 

or or or or or or or ot or or or or or or or or os or or or or or or —tr 


63 









O' 

4 ^ 


00000 00000 00 ”, 

•M2) 00010 00000 
OHIO 01111 11", 

•M2) 00010 00000 00000 00000 00000 00000 00000 00000 00000 00000 

00000 00000 00 «’, 

•M2) 00020 00000 
00000 00000 OO^', 

"( 2 ) 00010 00000 
OCOOO 00000 00”, 

•M2) 00020 00000 

00000 00000 00 ”, 

•M 2) 02020 00000 

00000 00000 00 ”, 

”( 2 ) 02020 00000 

00000 00000 00 ”, 

”( 2 ) 00000 00000 

00000 00000 00 ”, 

"( 2 ) 02020 00000 

00000 00000 00 ”, 

"( 2 ) 02020 00000 

00000 00000 00 ”, 

"(2) 00020 00000 00000 00000 00000 00000 00000 00000 OOOOO 00000 
00000 OOOOO 00”, 

"(2) 00010 OOOOO 
OOOOO OOOOO 00”, 

”(2) 00010 OOOOO OOOOO OOOOO OOOOO OOOOO OOOOO OOOOO OOOOO OOOOO 
OOOOO OOOOO 00”, 

”{ 2 ) 02020 01100 
OOOOO OOOOO 00", 

”(2) 00010 OOOOO 
OHIO 01111 11”, 

• ”(2) 00100 OOOOO 

OOOOO OOOOO 00”) 

DECLARE NCITRIPLES LITERALLY »H4-, 

DECLARE .CITRIPLES(NCITRIPLES) FIXED INITIAL 
278529, 409601, 475137, 540673, 671745, 


11100 OOOOO OOOOO 10000 00001 10000 10010 OOOOO 


OOOOO OOOOO OOOOO OOOOO OOOOO OOOOO 01100 OOOOO 
OOOOO OOOOO OOOOO OOOOO OOOOO OOOOO OOOOO OOOOO 
OOOOO OOOOO OOOOO OOOOO OOOOO OOOOO OOOOO OOOOO 
00022 OOOOO 00020 00220 00200 OOOOO OOOOO OOOOO 
00022 Hill 11120 00220 10200 OOOOO OOOOO OOOOO 
00010 OOOOO OOOOO OOOOO OOOOO OOOOO OOOOO OOOOO 
00022 OOOOO 00020 00100 00200 OOOOO OOOOO OOOOO 
OOOOO OOOOO OOOOO OOOOO OOOOO OOOOO OOOOO 00000 


00000 OOOOO 00002 OOOOO OOOOO OOOOO OOOOO OOOOO 


00022 22222 22220 00220 20200 OOOOO OOOOO OOOOO 
11100 OOOOO OOOOO 10000 00001 10000 10010 OOOOO 
OOOOO OOOOO OOOOO 01000 OOOOO 00011 00001 00011 


I • 


1600259, 

3408386, 

3408437, 

3604994, 

3605045, 

4079617, 

5652481, 

6106625, 

6577925, 

6971141, 

8085253, 

8389383, 


1785857, 
3408390, 
3408439, 
3604998, 
3605047, 
4145153, 
5718017, 
6307841, 
6580995, 
7L677 47, 
8088323, 
8389405, 


1851393, 

3408391, 

3408441, 

3604999, 

3605049, 

4800513, 

5988099, 

6512387, 

6643459, 

7167749, 

8281859, 

8389421, 


1916929, 

3408413, 

3408442, 

3605021, 

3605050, 

5529347, 

5988101, 

6512389, 

6643461, 

7170819, 

8281861, 

8389422, 


1982465, 

3408429, 

3408443, 

3605037, 

3605051, 

5529349, 

5991171, 

6515459, 

6646531, 

7351809, 

8284931, 

8389428, 


( 83459, 147457, 212993, 
933889, 1597187, 1597189, 


2048001, 

3408430, 

3408444, 

3605038, 

3605052, 

5532419, 

6045697, 

6521121, 

6761985, 

7816707, 

8389378, 

8389429, 


2637825, 

3408436, 

3408445, 

3605044, 

3605053, 

5586945, 

6056963, 

6577923, 

6971139, 

8085251, 

8389382, 

8389431, 









8389433» 8389434, 8389435, 8389436, 8389437, 8651011, 8651034, 
8651047, 8651052, 8651056, 8729347, 8871683, 8871685, 8874755, 
9634562, 9634610, 9634611, 9789187, 9789189, 9792259); 

DECLARE PRTB(187) FIXED INITIAL (0, 23854, 23812, 26414, 26372, 

31302, 31270, 28718, 28676, 34116, 34117, 14200, 13432, 64, 128, 

0, 41, 42, 26, 48, 150, 44, 119, 0, 0, 0, 34099, 34098, 120, 132, 

95, 0, 0, 0, 0, 90, 82, 0, 0, 12, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
0, 2668, 129, 0, 11, 11, 150, 0, 0, 0, 0, 38502, 0, 0, 13130, 0, 

0, 0, 0, 77, 132, 0, 0, 34, 0, 0, 77, 25, 34, 0, 77, 0, 0, 0, 0, 

0, 114, 0, 150, 112, 116, 37894, 37895, 6, 7, 0, 51, 56, 0, 135, 
91, 109, 101, 84, 149, 0, 0, 18436, 18440, 18463, 0, 0, 0, 0, 0, 

0, 25444, 123, 91, 109, 101, 84, 99, 126, 149, 0, 8651078, 36490, 

23660, 22147, 3C534, 33793, 11, 107, 75, 146, 124, 130, 147, 136, 
119, 0, 35160, 29775, 106, 24405, 32771, 40, 73, 0, 0, 0, 0, 0, 

34, 0, 34, 0, 0, 135, 0, 62, 4093247, 0, 0, 4354389, 36635, 0, 

135, 0, 29, 0, 0, 0, 32540, 0, 36192, 0, 27662, 0, 30807, 2, 

37635, 76, 11329, 36126, 0); 

DECLARE PRDTB{187) BIT(8) INITIAL (0, 77, 78, 60, 81, 173, 174, 94, 
95, 98, 99, 58, 59, 139, 148, 74, 91, 92, 84, 85, 93, 83, 49, 60, 
100, 178, 101, 102, 62, 51, 110, 90, 64, 169, 111, 164, 165, 168, 

180, 106, 179, 156, 157, 158, 159, 160, 161, 162, 163, 181, 34, 

76, 20, 21, 107, 182, 40, 70, 75, 52, 166, 172, 69, 154, 155, 48, 
79, 167, 171, 97, 103, 50, 170, 96, 55, 143, 146, 105, 35, 54, 

137, 104, 145, 147, 152, 151, 153, 149, 61, 71, 73, 72, 127, 128, 

129, 130, 126, 112, 113, 3, 36, 22, 23, 24, 25, 41, 141, 142, 132, 

133, 134, 131, 88, 89, 135, 184, 136, 18, 5, 27, 29, 31, 33, 17, 
42, 43, 4, 47, 37, 28, 30, 45, 46, 32, 8, 9, 10, 11, 12, 13, 15, 
44, 16, 86, 87, 109, 108, 150, 53, 140, 183, 185, 187, 186, 176, 

56, 138, 57, 144, 177, 19, 7, 38, 39, 82, 1, 26, 117, 116, 14, 6, 
121, 120, 67, 68, 119, 118, 123, 122, 115, 114, 63, 175, 66, 65, 

2, 125, 124); 

DECLARE HDTB(187) BIT(8) INITIAL (0, 70, 70, 70, 70, 121, 121, 112, 
112, 150, 150, 110, 111, 89, 81, 71, 88, 88, 93, 103, 112, 122, 

132, 120, 133, 73, 133, 133, 120, 132, 106, 79, 87, 82, 85, 74, 

98, 90, 66, 77, 62, 96, 96, 96, 96, 96, 96, 96, 96, 63, 78, 70, 

99, 100, 77, 86, 92, 139, 70, 136, 76, 121, 145, 94, 94, 119, 70, 
102, 69, 150, 130, 132, 68, 150, 124, 95, 80, 130, 78, 124, 89, 

130, 80, 80, 114, 114, 114, 128, 120, 137, 137, 137, 148, 148, 

148, 148, 148, 135, 135, 65, 78, 75, 75, 75, 75, 146, 95, 95, 72, 
72, 72, 72, 104, 105, 89, 113, 39, 115, 123, 91, 109, 101, 84, 

115, 149, 149, 123, 126, 125, 109, 101, 126, 126, 84, 129, 129, 
129, 129, 129, 129, 129, 126, 129, 116, 116, 107, 107, 128, 136, 
64, 131, 142, 118, 117, 144, 124, 89, 124, 95, 144, 115, 97, 13<8, 

138, 70, 83, 91, 143, 143, 129, 97, 140, 140, 145, 145, 127, 127, 

^ 134, 134, 108, 108, 120, 67, 147, 147, 83, 141, 141); 

DECLARE PRLENGTHI187) BIT(8) INITIAL (0, 3, 3, 3, 3, 3, 3, 3, 3, 3, 

3, 3, 3, 2, 2, 1, 2, 2, 2, 2, 2, 2, 2, 1, 1, 1, 3, 3, 2, 2, 2, 1 


o 

137, 104, 

145, 

147 

Ln 

129, 130, 

126, 

112 


133, 134, 

131, 

88, 


42, 43, 4, 

47, 

37, 


, <1, £.1 1, ^ , /I , , i , 

1 , 1 » 1 , 2 , 2 , 1 , 1 , 2 , 1 , 1 , 1 , 1 , 1 , 1 , 1 , 1 , 1 , 1 , 1 


, ^, J., 

, 1, 3, 2, 










O' 

O' 


It 

It 

2t 

2t 

It 

It 


2, 

2t 

It 
2, 
31 
It 


2t 

2t 

2, 

2t 

3t 

4t 


2t It 
2t It 

2t 2t 
2t 2t 

2t 3t 
3t It 


1 t 
2t 
2t 
2t 

3t 

2t 


It 

It 

2t 

It 

2t 
1 t 


It 

3t 

It 

It 

3t 

It 

It 

It 

It 

2f 

11 

1 f 

1 t 

It 

2t 

If 

2t 

2t 

2t 

3 t 

2 t 

It 

It 

3t 

3t 

3t 

It 

11 

11 

1» 

4 t 

3t 

3t 

3t 

3t 

3t 

2t 

2t 

2t 

2 t 

2 t 

It 

It 

It 

It 

It 

2t 

It 

2t 

1 f 

2 t 

It 

It 

It 

3t 

It 

3t 

11 

3t 

11 


2t 

3t 

It 

2t 

It 

3t 


It 

2, 

It 

2t 

2, 

2t 


It 2t 
2t It 

3t 2t 

2t 2t 


It 

3t 


2t 

2t 


It 

2t 

2t 

2t 

4t 

3t 


Ot 

Ot 


Ot 
Ot 


Ot 
Ot 


Ot 

It 


Ot Ot 
Ot Ot 


DECLARe’6oNTEXT_CASE 1187) B IT(8) INITIAL (Ot Ot 0, 

illil I fflilllllfll 

S; §; o: 8; 8; J; o; 3; 8; 8; J; oi oi ot o, ot ot ot o, ot ot o, 


It It It 

31 3 t 3 t 


It 

3t 


It It 
3t 3t 


' ' T Z 7 

6t Ot Ot Ot 


'oro,‘'o','ni'orororo, j, 1> li I’ i; 

f lltitilfi I pi ii li li li li li 

174 ; 174 ; 17 ?; n?; 178; H?; lei; llli Us; 186; 186; isst isst 
188 ); 


/* END OF CARDS PUNCHED BY SYNTAX 





♦ 


/* npri ARATTnw*^ NFEDED BY SKELETON PROTO—TYPE COMPILER. 
' XPL REFERENCE FOR FURTHER INFORMATION ON SKELETON 


CONSULT 

*/ 


DECLARE GS CHARACTER; 
DECLARE GW CHARACTER; 


/* 


SIZE 


DEFINITIONS 




DECLARE 


OCW LITERALLY 
CWW LITERALLY 
CW LITERALLY 
FW LITERALLY 
LCI LITERALLY 
CAS LITERALLY 
HW LITERALLY 
SCI LITERALLY 
BS LITERALLY 
CCS LITERALLY 
COS LITERALLY 


•72' 

•64* 

*60* t 

•32' t 
•30’ 
' 18 • 

• 16 ' , 
• 15 • 

•a*, 
• 6 * , 
•3* ; 


(CDC)*/ 


/-'!=0UTPUT COMPUTER WORD 
WORKING WORD SIZE#/ 

WORD SIZE#/ 

LONG COMPUTER INSTRUCTION SUE#/ 
ADDRESS SIZE#/ 

_ WORD (360)#/ 

, /#SHORT CDC INSTRUCTION SIZE#/ 

/#BYTE SIZE (360)*/ 

/#CDC CHARACTER SIZE#/ 

/# CDC OCTAL SIZE #/ 


, /#CDC 
/#CDC 
/#FULL 
, /#CDC 
» /#CDC 
/#HALF 




/# 


I 


R 


I A B L 


#/ 


DECLARE (BUFFER,TEXT) CHARACTER, /#9/19#/ 

°^''X70^CHAR»CTER INITIAL 1' 

LIST BASE */ 


/#11/19=^/ 


/#11/18#/ 


/# SCANNER VARIABLES #/ 


DECLARE CHARTYPE^(255}^BITI8j. 

PRSS BIT(l) INlTIAL(ol, /#PREVIOUS RSS #/ /#9/30#/ 

CONTROL (255) BIT(l); 

/# A NAME MAY NEITHER BEGIN NOR END WITH A ALL PERIODS MUST 

BE EMBEDDED AND AN EMBEDDED PERIOD MAY NOT BE FOLLOWtD BY 
ANOTHER PERIOD 9/30/71 #/ 


declare curchar literally ’SUBSTRITEXT,CP,1) 
PFCC LITERALLY •BYTE(CURCHAR)', 

PFNC LITERALLY ’BYTE(NEXTCHAR)'; 


•, /#9/28#/ 

/#9/28#/ 

/#9/28#/ 





DECLARE IS_EVEN LITERALLY * MOD 2=0'; 


/* SPECIAL TOKENS £ OTHER VARIAB 


DECLARE 

DECLARE 

DECLARE 

DECLARE 

DECLARE 

DECLARE 


(IDENT, NUMBERt DIVIDE, EOFILE) 

STRING BIT( 8) ; cncr 

STOPIT(IOO) BITd), (FAILSOFT, 

S CHARACTER ; .. .n n 

PRMASKIS) fixed INITIAL (0, 0, 
POINTER CHARACTER INITIAL (' 


fixed; 

COMPILING) BIT(l); 

"FF”, "FFFF", "FFFFFF", 


O' 

00 


/« STATISTICAL VARIABLES '*/ 


/* ESTAT: 


0 

1 

2 

3 

4 

5 

6 

7 

8 
<? 

10 


NUMBER OF ERRORS (ERROR COUNT) 
TOTAL SEVERITY (SEVERE ERRORS) 
PREVIOUS ERROR LINE NUMBER 

NUMBER^Of'^'nUMERIC CONSTANTS 




DECLARE ESTAT (10) FIXED INITIAL (0,0,0,0,0,0,0,0,0»0»0) 
/♦PROCEDURE REFERENCE COUNTER VARIABLES */ 




/♦ CALLCOUNT RECORDS CALLS ON THE FOLLOWING PROCEDURES: 
0: EQW 

l: NEXT_WORD_BOUND 
2: STACKING 
3: CSTE 
4: GSTE 
5: CEN 


L E S */ 


"FFFFFFFF"); 


/♦11/21P*/ 


/♦ll/ll*/ 

, 0 , 0 , 0 , 0 , 0 , 

♦ 11 / 11 */ 






O' 

vO 


EMITCODE 

EMITDATA 

EMITSTRING 

NEWSTRING 

EQUALSTRING 

DELETESTRING 

GETSTRING 

STRINGINUSE 

FINDS 

FIND 

ENTRY 

SCAN 

SYNTHESIZE 

ENTERSTRING 

STRINGDELETE 

STRINGGET 

CORG 

NMLE 

RMLE 

LR 

CD 

HOLDER 

UNHOLD 

SRI 

RRC 

RSR 

SAUR 

NNT 

RELT 

GSR 

SFR 

RTRT 

LRD 

R 

A 

GFX 

CXF 

FXP 

GXG 

GNXG 

AXG 

OXG 

RXG 

GXN 


6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

4 6 

47 

48 

49 

50 

5 

52 

53 







o 


54: AX 
55: DX 
56: LX 
57: SX 
58: TX 
59: 

An ? 


DECLARE XI CHARACTER INITIAL!' '); /♦lO/SO*/ 

I^mAtd), /no/29./ ^ 

FOREVER^LITERALLY^’WHILE 1'; /.10/29*/ 


/. 

DECLARE 


K 


R I 


B 


./ 


STACKSIZE literally '75*, 

PARSE STACK (STACKSIZE) BIT{8)» 

VAR (STACKSIZE) CHARACTER, 

FIXV (STACKSIZE) FIXED, 

lLHW:RHwi'''(iTACKSIZei’BIT(Ucl)l/SLeFT- AND RIGHT HALF CDC WORDS./ 

|«^firiOH^f?^sl^K‘i^LFKCTH for OFERAHD ./^,, 
SOrtSTACKSUEpBITIlif/’-STATE'^OF'^DATAioTNUHBERa-.STRING./ /«ll/l*/ 


/. GLOBAL STACK REFERENCE VARIABLES */ 


WORK FIXED, /.9/22./ 

STLOT BIT(6), 

NUMBER_VALUE FIXED, 

BCD CHARACTER, 

(LH,RH) BIT(LCI), 

WAD FIXED, 

('mp'^SPI^FIXEd’, /.STACK POINTERS ./ 
TOKEN FIXED; 


/.11/18*/ 





DECLARE 

DECLARE 

DECLARE 


/=«= SCCT IS SPECIAL CHARACTER CHARTYPE */ ^ ^ , 

SCCT (12) BIT (8) INITIAL (8f8t8t8t8»8»8f3t2t6tl»l)t 
SCTOK (12) BIT(8); /* SPECIAL CHARACTER TOKEN*/ 


/* VARIABLES SET TO TOKENS FOR TERMINALS ADDED TO THIS COMPILER*/ 

DECLARE (PAPAMf PS EUDOtFNAME,DLA BtPNAME,ULABtBSNtCSNtFANfBANtCAN) BIT(8); 

INinAL (f^y'sTFINGNUHBcRPARAMETERIOENTIFIERPSEUDONAMEFIXEO NAHEDEFINEO LABEL 
PROCEDURE NAMEurjDEFINED LABELBIT STRING NAMECHAR STRING NAHEFIXED ARRAY NAHEBIT 
STRING ARRAY NAMECHAR STRING ARRAY NAME*); 

DECLARE STX (15) BIT(8) 

(lOtlOt10?13?1^?15?15?16?16?21?22)? 

STLL BIT(8) INITIALdS); 

> 1. S . INPROC... 

(DCLT,EOFT,ENDT,XTRNT,LITT) BIT{8), y*ii 

DOT BIT(8) /*li/^/ 


INITIAL 

DECLARE 

DECLARE 

DECLARE 


(INDEc!xPROC,UDI, INGO) bit(1/t9/22*/ 

INPROC BIT(l) INITIAL(O)t^/*9/18-/ 

yyfNfyiiy>D^Fl'ui?’lNDICATOR./ /*?/19Y/ 
SPACEA BIT(l) INITIAL{0)t /* SPACE ASSIGNED INDICATOR*/ 
DBLBIT{8) INITIAL (60). /*,DEFAyLT BITSTRING LENGTH */ 
DSL BIT(16) INITIAL (300). /* DEFAULT STRING LENGTH */ 
OFL BIT(8) INITIAL (48); /* DEFAULT FIXED LENGTH */ 


/*ll/3*/ 


/*ll/5*/ 


/* 


M B 0 


A B 


*/ 


DECLARE MSTS FIXED I NITI AL ( 100) ♦ /*MAX SYMBOL TABLE SIZE*/ 

' §ii oI cr.ptION*/ ; 

4«24«2*0*4*0*18tQt4t27?i?0?5?0?18?0?6?0?16?0?7?0?18?0) j/^11// 

DEflARE STRMX LITERALLY *255*; /* STRING TABLE MX SIZE*/ /*‘5/22*/ 

DECLARE STIMX LITERALLY *255'; /* STRING TABLE INDEX MX SI ZE */ /^''?/22'''/ 
DECLARE CSTS Bd(16) WnTIAL (1). /* CURRENT SYMBOL TABLE SIZE */ 





NVBD 

MCSTS 

CLEV 

STAB 

STRML 

STEL( 

STIE( 

NSP F 

CSP F 

TORW 


BIT( 16 
FIXED 
BIT(8) 
(SIRMX 
BIT( 1 
STIMX) 
STIMX) 
IXED I 
IXED, 
BIT(8) 


) INITIAL (0 
INITIALIO), 
, CURRENT 

) CHARACTER, 
6) INITIAL ( 
BIT{16), /* 
FIXED, /- 
NITIAL(O), / 
/^CURRENT 
; TOP OF 


),/<=# OF VBLS BEING DEFINED COUNTER 9/17*/ 
/^MAXIMUM SYMBOL TABLE SIZE*/ /*11/11*/ 
LEVEL */ 

/* TTHE STRINGS */ /*9/19*/ 

256), /* MAXIMUM STRING LENGTH*/ /*9/19*/ 
STRING TABLE ELEMENT LENGTH*/ /*9/20*/ 

STRING INDEX ELEMENTS */ /*9/20*/ 

*NOTINUSE BASE STRING POINTER */ /*10/29*/ 
NEW STRING POINTER */ /*10/29*/ 

RESERVED WORDS */ 


DECLARE 


FOP BIT(L) INITIALIl), /* FIRST OPERAND OF STATEMENT*/ /*9/14*/ 

IDLI BIT(l) INITIALIO?;V*"1 n^DECLAR LIST INDICATOR*/ /*9/14*/ 
/* FOP IS USED FOR LABEL RECOGNITION */ 


DECLARE STENL CHARACTER INITIAL! /*10/31*/ 

•STAB TYPE SLEV KIND COUNTIDLVLSIZE PVl IDLM PLP 


XII SVT BASE LOG PI 


IN) 


/* EMITTER VARIABLES */ 


/* 


QW(0) 
QW{ 4) 
QW( 8) 
QVJ( 12) 


QW(3) 
QW(7) 
QWdl ) 
QW(15) 


CQW(O) 
DQW(0) 
CQR(Q) 
DQR(O) 


CQW(3), 
OQW( 3) , 
CQRI3), 
DQR(3) 

*/ 


DECLARE QW(15) BIT(SCI), /*QUARTER WORDS C RELOCATION FACTORS*/ /*ll/8-/ 
EMITC LITERALLY 'CALL EMITCODE', 

EMITD LITERALLY 'CALL EMITDATA*, 

iKiT^o^’r^?§kkJL;"fhkLrrQ5IS!^?Uooo...o,o).. 

HK !KiirAtS§!; 

FOREVER_INDICATOR EIT(l) INITIAL(O); /*11/13*/ 


/♦ STRING ADDITION VARIABLES 

/* VARIABLES ADDED TO SCANNER TO ALTER PARSING OF STRINGS */ 
DECLARE ( /*10/30 DN*/ 

COMMA TOKEN, 





PERIOD_TOKEN) FIXED; /*10/30 UP*/ 

/* VARIABLES ADDED TO SCANNER TO PROVIDE FOR BIT STRINGS */ 
DECLARE BSBASE BIT(8) INITIAL (4); /* BITSTRING BASE */ 

/* VARIABLES ADDED TO SCANNER FOR MACRO DEFINITIONS */ 
DECLARE (LITERAL,LITSAVE) CHARACTER; 


/* CONSTANT PROPAGATION VARIABLES USED BY XCOM - ONE ARE : 


DECLARE CNB FIXcD; 
DECLARE NSC LITERALLY 
SCON (NSC) 
SCAD (NSC) 
CNSC FIXED 


/=!'NUM£RIC CONSTANT LIST BASE*/ 
»100*, /*10/18 DN*/ 

CHARACTER, 

BIT(CAS), „ , 

INITIAL(O); /*10/18 UP*/ 


*/ 

/*li/21*/ 


/* VARIABLES FOR EBCDIC TO BCD CONVERSION */ 

(•••ABCDEFGHIJKLMN0PQRSTUVWXYZ0123456789+-*/()$= 

DECLARE ICCC (255) BIT(BSn /*10/18*/ 

DECLARE CICC CHARACTER INITIAL 


.i% :"_U? <>#a-> 


); 


LO 





-0 

4 ^ 


CONTROL TOGGLES 

D :: = 

T :: = 

U :: = 

Z : : = 

M :: = 

L : : = 

G : : = 

H : : = 

1 : : = 

J 2 2 — 
W = 
S : : = 
R : : = 
P :; = 
E :: = 
C : : = 
F :: = 
1 : : = 
0 : : = 
Q :: = 

V : ; = 
K ; : = 
A : : = 
B : : = 
N : : = 
0 ; ; = 
X :: = 

Y :: = 

2 : : = 

3 : : = 

4 : : = 

5 :: = 

6 : : = 

7 : : = 

8 : : = 

9 ; : = 
’i' :: = 


USED BY CXCOM: 

list eoj statistics and symbol table 

TRACE CONTROL 


SET MARGIN CHOP 
READING LIHRARY 

list input 

list input with rest 

LIST LOAD MODULE 


information 


PRINT REGISTER REFERENCES 
PRINT PRODUCTIONS 

PPINt'cODE^AND DATA AS EMITTED 
PRINT FIND REFERENCES 
PORCE NEW PAGE IMMEDIATELY ^ 
DOUBLE SPACE BEFORE EACH INPUT LINE 
DISPLAY SYMBOL TABLE REFERENCES 

TRACE MASTER LIST TRANSACTIONS 


PRINT EXPRESSION NUMBER REFERENCES 


DEBUG SCI 


IF M 


1 • • . 


& 


L 


/ ::= DUMP REFERENCED EXPRESSIONS 
) :: = 

( : : = 





/* STATISTIC GATHERING VARIABLES -/ 

DECLARE INST_FREQ(74) FIXED ; 

/* VARIABLES FOR LOCAL PROTECTION */ 

LIBRARY CALLING VARIABLES, USUALLY DENOTE 


/* TOTAL TIMES USED */ 
ENTRY POINT TO A PROC 


DECLARE READING_LIBRARY FIXED ; 


TRIGGERS INIT 2 CALL 




H 


M 


R 




/* USED FOR UNDEFINED LABEL REFERENCES AND STRING- AND NUMERIC TEMPORARY 
REFERENCE LISTS 


DECLARE 


MMil ITTFRALLY *1000*» /*MAX MASTEP LIST LENGTH^/ 

MLCL FIXED INITIAL(0)t /^MASTER LIST CURRENT LEVEL*/ 
MLML FIXED INITIAL(O), /-MASTER LI ST MAX IMUM LEVEL-^/ 

MS (MMLL) fixed, /;!-MASTER LISTOV /;-ll/3-/ 

NMLEB‘'FIXEn^INiTIAL(n; /^NULL MASTER“LIST ENTRY BASE*/ 


/*11/19= 

/*ll/9*/ 

/*ll/9*/ 


i-ify 1 / 3 */ 


/* EXPRESSION PROCESSING VARIABLES */ 


/*11/13 DN*/ 
COUNTER*/ 


declare XLB fJ«0,/-EXPRESSION 

ON POINTER*/ 

XE(3) FIXED, /*{ WORKING) EXPRESSION GROUP'--/ 
XGAl’BITU)'’iNITIAL!o)?’/»EXPRESSION GROUP ATTACHMENT 


CNAX 

MNAX 


BIT(HW) 
BIT(HW) 


INITIAL(0), 
INITIAL(0); 


/-'I'-CURRENT 

/*MAXIMUM 


OF 

OF 


ACTIVE 

ACTIVE 


EXPRESSIONS*/ 

EXPRESSIONS*/ 


/*11/15*/ 

/*11/15*/ 

/*11/15*/ 

/*11/26P*/ 

FLAG*//*11/15*/ 


/*11/13UP*/ 


/♦REGISTER MANIPULATION VARIABLES 


DECLARE 

DECLARE 

DECLARE 

DECLARE 


RELEASE LITERALLY 'CALL UNHOLD'; 

KSkgLU?irtKED?":^t,H0L^ER^;^/*ll/4*/^ ?"CKUP LIST 
RTXL (23) FIXED INITIAL /*REGISTER-TYPE X-REF*/ ^ ^ ^ /^n/oc:*/ 

(23 333'^3 4 4 1 11,ll,ll»lltiltl2,12,0,6,6,6,6,6,6,6); /*ll/2i>*/ 


*/ 

/*11/16P*/ 
BASE*/ /*ll/24*/ 





/«RTXL LIST ONLY THE MOST RESTRICTIVE TYPE OF REGISTER USABLE*/ 

NTA®BIT?HW),^%=NUMBER^OF°NUMERIC TEMPORARIES ALLOCATED*/ /*11/14*/ 
ROOA (23) FIXEDr/^REGSTER USAGE REFERENCE COUNTER*/ 

DECLARE RT(15) FIXED /*REGISTER TYPE RANGE LIST-/ -a i » . 

^ INITIAL(16,16,8,8,0,0,9,13,14,15,0,7,17,23,24,31), 

DECLARE RTRTL (15) BIT(BS) ^ ^ 1°, *5 ^9 J ^ I o ^ R ^RJ- 

INITIAL(8, 43,51,38,60,44,52,38,62,46,54,38,38,38,38,38), 


/*11/18*/ 
/*11/22A*/ 
/*11/16*/ 
/*11/16A 
/*11/16A . 


/* 


PROCEDURES 
/*10/29 DN*/ 


*/ 


UCC: /*UP CALL COUNT */ 

PROCEDURE (I); 

iP'^CONTBOLimEi-TM) THEN OUTPUT^ • TRACE.* •|IU /.11/12»/ 
CALLCOUNT(I) = CALLCOUNT(I) + 1; 

END UCC; /*10/29 UP*/ 


/* GENERAL 


PROCEDURES */ 


o 


CEN: /* 9[;]^^*9I^pcnnpl'^pETURNs'^A^QNE-CHARACTER CHARACTER STRING 

WHICH HAS THE SAME BIT CDNFIGURAT ION AS THE BIT(8) ARGUMENT 
SUPPLIED TO IT*/ 

PROCEDURE (A) CHARACTER; 

DECLARE A BIT(8), 

B CHARACTER, 

D FIXED; 

• CALL UCC(5); /*10/29*/ 

B = B ii ' '; /*10/22 GLITCH*/ 

D = C0REW0KD(SHR(ADDR(B),2)); 

COREBYTE (D) = A; nru a#/ 

B = SUBSTRIB,0,1); /*10/22 GLITCH Av/ 

RETURN B; /*9/17*/ 

END; 


/* CHARTYPE values: 


TYPE NOT_LETTER_OR_DIGIT INDICATES 

n TRUE INVALID CHARACTER 

1 TRUE blank 


■i'c -Jr 





2 

3 

4 

5 

6 

7 

8 


TRUE 

TRUE 

FALSE 

FALSE 

FALSE 

FALSE 

TRUE 


OUnTE(BIT($$) OR STRING ($» DOLLAR 
SLASH FOR COMMENT OR DIVIDE 
letter (NOT INCLUDING PERIOD (.)) 
DIGIT 
PERIOD 

SPECIAL^CHARACTER (TRUE SPECIAL) 




' ''°^"8il^ARE"(NUHBER.''wlo¥H,‘^Ll“lXED: STRING CHARACTER! 

STRING = NUMBER; 

If"l''>=^WIDTH^THEN*’RETURN string; cTRlNf 

ELSE RETURN SUBSTR(X70, 0, WIDTH-L) II STRING, 

, END I_F0RMAT; 

F RR OR * 

^^°5l“rRfWriN^'I!?MXl5^TOR ALL ERROR NESSAGES^./ 

IF'LliTING^Is’lujpRESSEO, FORCE PRINTING OF THIS LINE 

OUTgy^? xW MI T-i^fti^RGI McHO^ . , 

OUTPUT = •*>'''^ ERROR T * I I MSG M r.t--rcrTcn riM l INF ' II 
uuirui^ PREVIOUS ERROR WAS DETECTED ON LINE II 

ESTAT(2)11’. ; 

ESTAT(2)=ESTAT(3); ^ . _ 

IF ESTAT(II^>^200 IHfN DOj, ERRORS, CHECKING ABORTED *«*■; 

COMPILING = FALSE; 

END; , /*11/19=:-/ 

ESTAT(l)=ESTAT(l)+l; 

END ERROR; 


/=i'll/19-/ 

/=!^11/19«/ 


/=Ml/l 
/=:‘11/2 2A’^/ 


IBMCDC: /* IBM TO CDC CHARACTER STRING CONVERTER */ 
PROCEDURE ID) CHARACTER; 

declare 1D,R{ character, 

W BIT(BS); 

R = D; 

RETURN R; 


/♦10/17*/ 


O^CT 





END IBMCDC; 


UP=^'/ 


•vl 

00 


/* MASTER LIST MANIPULATION PROCEDURES 

NMLE: /- (GET) NEXT MASTER LIST ENTRY */ 7*11/3 DN*/ 
PROCEDURE BIT(HW); 

DECLARE I FIXED; 

CALL UCC(27); ^ , 

]fF^MLCL>MLML THEN MLML=MLCL; 7*11/9*/ 

^CALL ERROR('MASTER°hsT FULL',1); 

RETURN O; 

END; 

I = nmleb; 

If''CGNTROL(BYTE('K' )) THEN OUTPUT= • AMLE : 

RETURN I; 

END NMLE; /*ll/3 UP*/ 

RMLE: /* RETURN MASTER LIST ENTRY */ /*ll/3 DN*/ 

PROCEDURE (E); 


• I I I I I • cmll: •I Imlcl; 


DECLARE (I,E) FIXED; 
CALL UCC(28); , 

MLCL=MLCL-l; /*ll/9*/ 
IP CONTROL! BYTE! • K* ) ) 
I = NMLEB; 

NMLEB = E ; 

ML(E) = I; , 

END RMLE; /*ll/3 UP*/ 


THEN OUTPUT='RMLE: 'llEll* CMLL: 'llMLCL; 


L TO AN OCTAL CHARACTER STRING */ 


OCTAL: /* CONVERT D OF LENGTH 

PROCEDURE (DfL) CHARACTER ; 

DECLARE D FIXED, 

(C,L,W) BIT(BS), 

S CHARACTER; 

'; 

C = 0 TO L -r 3 BY 3; 

W = SHR{D,C) & 7; , r /-..ir* /TO-/ 

IF LENGTH(S) > 0 THEN S = H || S; /*10/22-/ 
ELSE S = W; /*10/22*/ 

END; 

RETURN S; , , 

END OCTAL; /*10/lo UP*/ 


S=' 

DO 


/*11/27P*/ 


/*11/27P*/ 


/*10/16 DN*/ 






CQW: /-CODE QUARTER WORD ADDRESS*/ /*11/14 ON*/ 
PROCEDURE BIT{2); 

RETURN C_COUNT & 3; 

END CQW; /*11/14 UP*/ 

DQW: /*DATA QUARTER WORD ADDRESS */ /*11/14 DN*/ 

PROCEDURE BIT(2); 

RETURN D_COUNT & 3; 

END DQW; /*11/14 UP*/ 

/* EMISSION PROCEDURES */ 


EQW: /* EMIT QUARTER WORD (15 BITS) */ /*10/16 DN*/ /-11/8 DN*/ 
PROCEDURE (DWtTDtR) BIT(CAS); 

DECLARE DW BIT(SC I) , 


I BIT(RS), 
R BIT(2), 


K b 11 i I» 

TD BIT(1); /*ll/8 UP*/ 




/*10/16 DN*/ 


W(I)=0 £ QW(I) 
N=QW(I+l); 



QW(I+2) THEN CALL ERROR (•SPECIAL ERROR 'lUtO); 
0 THEN CALL ERROR ( * SP EC I AL ERROR MUtO); 


Z=2; /*11/8P*/ 

IF QW( 1+3) -■= 0 THEN 
P=SHL(Nt2); 

RETURN R; 

END; 



QW(I+3) THEN 





00 

o 


CALL ERROR ('SPECIAL ERROR 'llZtO); 

R=QW(I); 

R=SHL(R»4)+QW{1+2); 

RETURN R; /^ll/Q UP’*'/ 

END RELOCF; /*10/16 UP=<=/ 

CALL UCC(O); /=?'10/29*/ 

DO CASE TD; 

/'-l' CASE 0 PROGRAM */ 

DO; 

QW(CQW)=DW; /*11/14«/ 

QW(CQW+8)=R; /'-ai/14*/ ^ , , , 

C COUNT = C COUNT + 1; /*10/17=^'/ ^ ^ 

IF ({C COUNT- 1 )S3 1=0 THEN RETURN SHR(C_CaUNT-li 
IF CQW=0 THEN DO; /=5'11/14=!V 

GW=OCTAL{ ASK-1 , CAS) ; /'-!‘11/14P*/ 

GS = GW 11 ' : ' ; /t-10/21*/ 

DO I = 0 TO 3; , , 

GW=OCTAL (QWd ) ,SCI ) ; /=!=ll/8*/ 

GS = GS I} GW j| ' •; /-10/21*/ 

GS = GSI |QW(I + 8lI 1 ' *; /*ll/8*/ 

QW(I)=0; /=«=ll/8*/ 

END; 

GW = 0CTAL(REL0CF(0) ,6) ; /=i=10/21A*/ 


IF CONTROKBYTEf'C ) ) THEN /*ll/9^/ 

OUTPUT = GS ii '(' !! GW II ')' il ' CODE*; 

/*11/14’S=/ 


END; 
RETURN ask; 
END; 


CASE 1 DATA 

DO; 

QW(0QW+4) =DW; /-''11/14*/ 

QW(DQW+12 )=R; />l‘ll/14=«'/ 

lF^{(^DlcoDNT-llsr)=0 THEN RETURN S HR ( D_COUNT-1 ■ 
IF DQW=0 THEN DO; /=^11/14^/ 

GW=CCTAL(DASK-1,CAS) ; /*11/14P="'/ 

GS=&Wll': •; /-11/14*/ 

DO I = 0 tq 3; 

GW=0CTAL(QW(I+4) ,SCI ); V?, * / 

GS = GS It GW I • '; /*10/21*/ 

GS = GsT|QW( 1 + 12)I I ’ *; /-ll/8^/ 
QW(I+4)=0; /Yll/8*/ 

GW =^OCfAL(RELOCF(l) ,6); /*10/21A=!=/ 

IF CONTROL(BYTE('C') ) THEN 

OUTPUT = GS I I I ! GW I 1 •)' Il ' DATA* 


2 ); /^ 11 / 14 =(=/ 


/*10/21A*/ 


2); /♦11/14«/ 


; /=!‘10/21A=i‘/ 







oo 


END; 

RETURN DASK; 
END; 

END; /* OF CASES */ 
END EQW; 


/*10”/16 UP*/ 


NEXT WORD^BOUND: 

/*IF NDT at a word 
PROCEDURE BIT(CAS); 
CALL UCC(1); /-10/29*/ 
DO WHILE (C_COUNT C 3) 
EMITNOP; 

FND; 

RETURN ASK; /*11/14*/ 
END NEXT W0RD_B0UND; 


BOUND IN CODE GET TO ONE; RETURNS 


■,= o; /*il/i3*/ 


/*10/16 UP*/ 


CORG: /*SET CODE ORIGIN*/ /*10/31 
PROCEDURE (NCO) BIT(CAS); 
DECLARE (NCOtOCO) BIT(CAS); 
CALL UCC(25); 

CALL NEXT^WORD_BOUND; 

0C0=ASK; 7*11/14*/ , 

C_COUNT = SHL(NCO,2 ) ; /*11/13'‘'/ 
RETURN OCO; , , , 

END CORG; /*10/31 UP*/ 


DN*/ 


"NEXT" WORD ADDRESS*/. 


/* REGISTER HANDLING PROCEDURES*/ 


GENRETURN: /★ GENERATE GENERAL RETURN CODE */ /*9/19 DN*/ 
PROCEDURE (R); 

DECLARE R BIT(8)>- 
W FIXED; 

RFTIJRN* 

END GENRETURN; /*9/19 UP*/ 


/* 


CODE 


EMISSION PROCEDURES 


*/ 


EMITCODE: /*10/16 DN*/ 

PROCEDURE (OP»Rl»R2tA,B) BIT(CAS); 

DECLARE , /^REGISTERS I AND^J= 

A BIT(CAS)» /*AODRESS OR REGISTER K*/ 







W BIKLCI ) , 

B BIT(2), /^^'RELOCATION FACTOR FOR ADDRESS*/ 
LI BIT(l); 

CALL UCC(6); /*10/29*/ 

R1=R1&7; 

R2=R2&7; 

LI=0; /*ll/8*/ 

IF( (OP > 0){I(0P < 8) ) I ( (OP 


> 

= INST_FREQ(OP) 


INST_FREQ(OP) 

W = OP; 

W = SHL(W,3) + 

W = SHL(W,3) + 

IF LI THEN W = 

ELSE W = SHL(W,3) + (A C 
DO WHILE -'I (4-CQW ) > LI ) ; 
EMITNOP; 

END; 

IF LI THEN CALL EQW(SHR(W,15) 
RETURN EQW(W & «7FFF« ,0,B) 


'•(3)47") 8 ((OP 
+ 1; /*io/30*/ 


87) < 3)) THEN L 


R1 ; 

R2 * 

SHL(W,18)+ (A 
7) ; 


8 '•3FFFF'') ; 
/*10/17*/ 


8 •'7FFF"t 0 


B); 


END EMITCODE; 


/*10/16 UP*/ 


oo 

to 


GDE: /*GENERAL DATA EMITTER*/ /*10/16 DN*/ /*10/31*/ 
PROCEDURE (LHCjRHC,DRF) BIT(CAS); /*10/31*/ 

DECLARE (LHC,RHC) BIT(LCI), /*LEFT AND RIGHT HALF-WORDS*/ 
(I,J,K,L) PITISCn, 

DRF BIT(2), /*DATA RELOCATION FACTOR*/ 

M BIT(CAS); 

CALL UCC(7); /*10/29*/ 

I = SHR(LHC,15) 8 »7FFF"; 


J = LHC 8 "7FFF"; 

K = SHR(RHC,15) 8 
L* = RHC 8 ‘'TFFF"; 

DO WHILE DQW > 0; 

CALL EQW(0,1, 

END; 

M = EQWd ,1,0) ; 

CALL EQW{J,1,0); 

CALL EQW(K,1,DRF) 

CALL EQW(L,1,DRF) 

RETURN M; 

END GDE; /*10/16 UP*/ /*10/31*/ 


••7FFF»; 

/*11/14*/ 
0 ) ; 


/*ll/l*/ 

/*10/31*/ 


EMITDATA: /*0RDINARY DATA EMITTER*/ 
PROCEDURE (LHC,RHC) BIT(CAS); 
DECLARE (LHC,RHC) BIT(LCI); 
RETURN GDE(LHC,RHC,0); 

END EMITDATA; /*10/31 UP*/ 


/*10/31 DN*/ 


/*11/18*/ 

/*11/17*/ 

1=1; /*ll/8*/ 


/*11/27P*/ 





STRING*/ 

declare f,CHARACTER.^/*DATA^STRING./^y^^ STRINGS*/ 

? RTTCLClll /*LEFT HALF OF DESCRIPTOR (CURRENT LENGTH)*/ 

R BIT(LCI)? /BRIGHT HALF OF DESCRIPTOR (MAXIMUM LENGTH) / 

(H,N) BIT(LCI), /*10/20*/ 

I FIXED, 

F BIT(l); 

CALL UCC(8); /*10/29*/ 

F=l; 

T=D; 

/* THERE IS AN ERROR IN THE NEXT 2 LOOPS, THEY ASSUME L IS IN CHARS */ 

DO WHILE LENGTH(T) < R; /*ll/6*/ 

T=Tl|* •; /*ll/6*/ 

END; /*ll/6*/ 

' '^/I''EXTEND'^STRING°Tn EVEN nCiMBER OF CDC WORDS */ 

T = ' ' 1 I T; 

END; 

DO WHILE LENGTH(T) > 0; ^ 

W = SU3STR(T,LENGTH(T) 

IF LENGTH(T) > 10 THEN A'‘10/20*/ 

T =SUBSTR(T, 0,LENGTH (T)-IO); 

ELSE T = /*10/20*/ 

DO I = 0 TO 4; /*10/20*/ 

H = SHLIH,6) I (BYTE(W,I) ^63); 

N = SHL(N,6) I (BYTE(W, 1+5) & 63), 

END; /*10/20*/ 

IF F THEN DO; 

A~=’eMITDATA{H,N); /*10/20*/ 

ELSE^EmItDIH,N); /*10/20*/ 

IF F THEN^a’= EMITDATA(L,R); 

ELSE EMITD(L,R); 

RETURN A; 

END EMITSTRING; 


/* 10 / 20 */ 

/* 10 / 20 */ 


/*10/18 UP*/ 





/« NUMERIC TEMPORARY HANDLERS */ 

NNT: /*GET» NEXT NUMERIC TEMPORARY^-/ /*ll/7 DN*/ 
PROCEDURE BIT(CAS); 

DECLARE I FIXED; 

CALL UCC(37); /*11/11*/ 

?F^FTLB >*MMLL^THEN RETURN EMITDATA(0t0)» /*ll/8*/ 
NTA=NTA-l; 

I=MLtFTLB); 

CALL RMLE(FTLB); 

FTLB=SHR(1,18); 

RETURN I£"3FFFF”; 

END NNT; /«ll/7 \JP^'/ 


RELT: /-^'RELEASE TEMPORARY-/ 
PROCEDURE(T); 

DECLARE (I,T) FIXED; 

CALL UCC(38); 
I=SHL(FTLB,18)|T; 

ftlb=nmle; 

MLtFTLB)=I; 

END RELT; /*ll/7 UP*/ 


/*11/7DN*/ 


/* EXPRESSION GROUP HANDLERS*/ 

GXN: /*GET (CURRENT) EXPRESSION NUMBER*/ 

PROCEDURE BIT(HW); 

CALL UCC(53); 

RETURN XE(0)&”FFFF'» ; 

END gxn; 

FXP: /*FIND EXPRESSION POINTER*/ 

PROCEDURE (X) BIT(HW); 

DECLARE (R,X,W) BIT(HW), 

L FIXED, 

C BIT(BS) ; 

IF^CoSrOlIb^TE( •/• )) THEN OUTPUT='FX: 

c=o; 

W=XLB; 

R=0 * 

DO WHILE W <= MMLL; 

If’^K = 0U( {L(;"3FFFF«)=X) THEN RETURN R; 

R=w; 


I lx; 


/*ll/26P*/ 

/*11/26P*/ 

/*11/26P*/ 

/*11/26P*/ 

/*11/26P*/ 

/*11/15*/ 

/*11/15*/ 

/*11/15*/ 

/*11/15*/ 

/*ll/15t/ 

/*11/16P*/ 

/*ll/27*/ 

/-11/15*/ 

/=-ll/lB*/ 

/*11/15*/ 

/^11/15*/ 

/* 11 / 15 ^-/ 

/=^11/1S*/ 

/-11/15*/ 





I 


00 


W=SHR(L,18); 
c=(c+l)&3; 
end; 

RETURN MMLL+l; 

END FXP; 

gxf: /*get expression FIELD=«'/ 

PROCEDURE (F) FIXED; 

DECLARE (FtV) FIXED; 

CALL UCC(45J; 

DO CASE F&7; 

/^-O: TYPE FIELD#/ 

V=SHR(XE( l)tl5)&7; 

/#l; REGISTER FIELD#/ 

V=XE(1)&’'3F''; 

/#2: LOCATION FIELD#/ 

V=XE( 2 ) fl"3FFFF» ; 

/#3: RESERVED FIELD#/ 

V=XE(3) &''3FFFF''; 

/#4: SPECIAL FIELD 1 #/ 
V=SHR(XE<l)tlO)&;'3P;; 

/#5: REGISTER VALIDITY BIT 

/^I'l^EXPR^sioN^TYPE 0:DATA l;ADORESS#/ 

/★Ty^^RELOCATI ON^FACTOR FOR ADDRESS#/ 
V=SHR(XE(1),7)£3; 

IF CCNT^OUBYTEt^^)) THEN OUTPUT= ’ GXF( • i I F 1 
RETURN V; 

END gxf; 


(VALID=0)#/ 




CXF: /#CHANGE (WORKING) EXPRESSION GROUP#/ 

PROCEDURE (FtV);^^^ 

DECLARE (F,V) FIXED; 

CALL UCC(46); 

GSyCXF(*liFfl^,'l!(XE(0)P'3FFFF*')ll') TO MlGWll* 
GW=OCTAL(GXF(F),32); 

GS=GSIIGWII•->'; 

DO CASE F£7; 

XE(i}ITxE(l)&WFFC7FFF'‘) I SHL{ (V£7),15); 

j;iU)2^^Efl?l»^FfP^PF^O-)l(V£«3F.M; 

XEIZIMXEyif&^FFFCOOOO'' ) 1 ( V&''3FFFF«’) ; 

/#3: RESERVED FIELD#/ 


/#11/15#/ 

/#11/19*/ 

/#11/15#/ 

/#11/15#/ 

/#11/15#/ 

/#11/15#/ 
/#11/15#/ 
/#ll/22A#/ 
/#ll/lt>#/ 
/#11/22A#/ 
/#ll/23#/ 
/#ll/23#/ 
/*ll/15#/ 
/#11/16P#/ 
/#11/15*/ 
/#ll/lf>#/ 
/#11/15#/ 
/#11/15#/ 
/#11/16P#/ 
/#ll/23#/ , 
/=pll/16P*/ 
/#11/16P#/ 
/#11/16P#/ 
/#11/16P#/ 
/#11/16P#/ 
/#11/16P#/ 
/#11/15#/ 

(XE(0)&"3FFFF«)|1'):*IJV; 

/*11/15*/ 

/#11/15#/ 

/#11/15#/ 

/*11/15#/ 

/#11/22A#/ 

/#11/1?#/ 

/#11/22A#/ 

; /#11/22A#/ 

/#L1/22A#/ 
/#11/22A#/ 
/#11/22A#/ 
/#ll/23#/ 
/#ll/23#/ 
/#11/15#/ 
/#11/16P#/ 
/#11/1?>#/ 
/#11/1S#/ 
/#11/15#/ 





XE(3) = (XE(3 )£"FFFCOOOO”) | (V{k»3FFFF'') *, 

xeti ) = ( XE( 1K»FFFF81FF" H SHL( VS'^F^tlO) ; 

/^5i REGISTER VALIDITY BIT (VALID=0)*/ 

XE{ 1 ) = XE( 1) I 32 ; /’(^INVALIDATE f^^GISTER FIELD*/ 
/*6: EXPRESSION IS 0: DATA OR 1: ADDRESS 

XE{H = (XF(1){1''FFFFFFBF") |SHL(V&lt6) ; 

/*7: RELOCATION FACTOR FOR ADDRESS */ 

XE(1) = {XE(1 ){1"FFFFFE7F'') | SHL( V&3,7) ; 

END; /*CASES*/ 

IF^CCNTROU BYTE! • / ' ) ) THEN OUTPUT = GS M GW; 

GS='’ ; 

END CXF; 

LXG: /*LIST EXPRESSION GROUP*/ 

PROCEDURE; 

GS=GSnGXN?l'0?|LXP| I ' 1 I XP I I *>* ; 

^GW=OCTAL(XE( I ) ,32) ; 

GS=GS11’ 'IIGW; 

END; 

END LXG; 

GNXG: /*GET NEW EXPRESSION GROUP*/ 

PROCEDURE; 

INFORMATION^INFORMATIONl1’E*IIXLC+ll1• *; 

^CALlUrRORM EXPRESSION 'llGXNli* LOST', 10); 
EXP^O; 

XE(3)=SHL{MMLL+1,1S); 

XP=NMLE; /*GET XE(3) ML WORD*/ 

XP^NMEE;'■/*GET^XE { 2 ) ML WORD*/ 

XP=NMLe';^/*GET^XE(1) ml WORD*/ 

XE(0)=SHL(XP,18); , / 

XP=NiMLE; /*GET XE(0) ml WORD*/ 

if^mnax<cnax then mnax^cnax; 

XLC=XLC+l; . 

XE(0)=XE(0)IXLC; 

xgai=false; 

END GNXG; 

GXG: /*GET (OLD) EXPRESSION GROUP*/ 


/*11/15*/ 
/*11/16P*/ 
/*ll/23*/ 
/*11/16P*/ 
/*11/19*/ 
/*11/16P*/ 
/*11/16P*/ 
/*11/16P"/ 
/*11/16P*/ 
/*11/15*/ 
/*11/22A*/ 
/*11/22P*/ 
/*ll/24*/ 
/*!1/15*/ 

/*11/17*/ 
/*11/17*/ 
/-11/17*/ 
/*11/23P*/ 
/*11/23P*/ 
/*il/24*/ 
/-11/2 3P''V 
/*I1/23P*/ 
/’.'11/17*/ 

/«11/15*/ 
/*11/15*/ 
/*11/15*/ 
/*11/22P*/ 
/*11/1BP’V 
/*11/16P*/ 
/*11/19*/ 
/*11/15*/ 
/*11/15*/ 
/*11/15*/ 
/*11/15*/ 
/* 11 / 15 ’-^/ 
/*11/15*/ 
/’m/l5*/ 
/*11/15*/ 
/*11/15*/ 
/*11/15’'’/ 
/■'ll/15^/ 
/*11/15*/ 
/*11/15*/ 
/*11/15*/ 

/*11/15*/ 





PROCEDURE (N); 

DECLARE N BIT(CAS), 

W BIT(HW), 

L FIXED; 

IF^CGNTROL(b4tE(*X')) THEN OUTPUT=*GX: MlN; 

IF XGAI & (N=GXN) THEN DO; 

GO TO L2; 

end; . ^ ^ 

^CALL^ERROR(°EXPRESSION MiGXNlI' DELETED',10) 
LXP = FXP(N) ; 

EXP * MIN.!!, 

RETURN; 


IF LXP=0 THEN L=SHL(XLB,13); ELSE L=ML(LXP); 
XP=SHR(L,18) ; 

DO W=0 TO 3; 

XE(W)=ML{SHR( L,18) ) *, 

L=XE(W); 


END; 

XGAI=TRUE; ^ ,, 

IF CONTROL { BYTE( • /' ) ) 
GS='GX: • ; 

CALL lxg; 
OIJTPUT=GS; 

END; 


TEEN DO; 


/«‘dOES not REMOVE GROUP FROM LIST */ 
END GXG; 


/>ni/i5*/ 

/*11/15*/ 

/*11/15*/ 

/*11/19*/ 

/*11/18*/ 

/* 11/1 8 = 4 ^/ 
/*11/15«/ 
/^11/15^/ 
/*11/15*/ 
/*11/15=4‘/ 
/*11/15^/ 
/=4=ll/15t/ 

/^11/15-/ 
/=^11/19=!^/ 
/s^ll/lb*/ 
/^'11/15-/ 
/*11/15^^/ 
/*11/22P-/ 
/*11/23P^'/ 
/=4'11/23P*/ 
/=l'll/24-/ 
/>m/22A^=/ 
/ ni/ia*/ 

/•'I'll/lS-/ 

/=!=11/15-/ 


/^S'REGISTER FOR EXPRESSION*/ 

TdlTl ^ifi(BU!;^}iTHE expression number*/ 

CALL UCC(43); 

CALL ^XG(X)* 

MIX,5); 

RETURN l; 

END; 

RETURN GXF(1); 

END R; 

/*ADDRESS FOR EXPRESSION*/ 

DECLARe'^X bit (CAS M^/**THE EXPRESSION NUMBER*/ 
CALL UCC(44); 


/*11/17*/ 
/*11/17*/ 
/*11/17='V 
/*11/17*/ 
/*11/17*/ 
/*11/17*/ 
/*11/17*/ 
/*11/17*/ 
/*ll/17-.= / 
/*11/17*/ 
/*11/17*/ 

/*11/17*/ 
/*11/17>: / 
/*11/17*/ 
/*ll/24*/ 





00 

00 


.IIX.S,; 

RETURN NNT; 

END; 

RETURN GXF(2); 

END A; 

AXG: /-^JTACH^EXPRESSIONpGROUP*/ 

/* GXG(X); DXG; AXG; */ 

PROCEDURE; 

DECLARE (TfC) BITIHW); 

DECLARE L FIXED; 

CALL UCC(50); 

INVALID XGROUP-,0); 

RETURN; 

END; 

IF XGAI THEN RETURN; 

L=GXF(3); 

XE(3)=SHL(XLB,18) |L; 

I,XLB=XP; 

DO C=0 TO 3; 

ML(n = XE(C); ^ 

I=SHR(XE(C),18); 

END; 

LXP=0; 

XGAI=TRUE; 

DXG /=f'DETACH EXPRESSION GROUPJJ/ DETACHED BEFORE IT IS */ 

/;CHANgS--ELSE CHANGES WILL NOT BE PROPOGATED’^'/ 
PROCEDURE; 

DECLARE L FIXED; 

CALL UCC(51); 

INVALID EXPSOl, 

RETURN; 

END; 

if iKiK fra<XEt3),ie., 

^’"^^L^MLC-XP) C'’3FFFF«; 

ML(LXP)=l; 

l=xe(3)&"fffcoooo"; 

L=L1ML(LXP); 

ML(LXP)=L; 


/-11/17*/ 

/=!=11/17*/ 

/^11/17*/ 

/-11/17^/ 

/*11/15=^/ 

/*11/15*/ 

/=‘U1/15*/ 

/='/!!/15P''/ 

/=M1/15«/ 

/^=11/15*/ 

/-11/15*/ 

/=;-ll/15*/ 
/-11/15^'/ 

/-ll / 15P'^/ 

/^11/15«/ 

/*11/15*/ 

/*11/15^/ 

/=^11/15*/ 

/="11/15-/ 

/*11/15*/ 

/^Il/15*/ 

/^-11/15*/ 

/^«11/15P=!'/ 

/=:'11/15*/ 

/-ai/lP-/ 

/*11/15«/ 

/^11/157/ 

/*11/15P*/ 

/-11/15P«/ 

7^11/19^/ 

1/15P*/ 
/ + 11/15P'".‘/ 




00 

vO 


END; 

L=GXF(3); 

XE(3j^ = SHL(MMLL + l, 18) | L; 

/^^DETACHMENT DOES NOT INDICATE REMOVAL FROM MASTER LIST 
END DXG; 


/+11/15P*/ 
/*ll/16P=i'/ 
/’f-ll/lSP*/ 
/=!'ll/15=i'/ 
/=i'l 1/15*/ 
/*!1/15*/ 


RXG: /*REMOVE (WORKING) EXPRESSION GROUP ( 

/*AN EXPRESSION NEED ONLY BE REMOVED WHFN IT IS TO BE */ 
/*DELETED*/ 

PROCEDURE; 

DECLARE C FIXED; 

CALL UCC(52); 

TF yr'AT TH^N Hfl * 

CALL ERROR!'ATTACHED XGROUP BEING REMOVED(SDETACHED)'t0) 
CALL DXG; 

IF XGAI THEN DO; . 

CALL ERROR!'XGROUP DETACH ERROR'tlO); 

RETURN; 

( END; 

END; 

c=o; 

DO WHILE !XP>0)£!C<4)£!XP<=MMLL); 

CALL RMLEIXP); 

XP=SHR!XE!C),18); 

XE!C)=XE!C)C"3FFFF"; 

C=C+1; 

END; 

XGAI=TRUE; 

XE! o)=o; 

END RXG; 


/*11/15*/ 

/*11/15*/ 

/*11/15*/ 

/*11/15*/ 

/*11/25P*/ 

/*ll/24*/ 

/*11/15*/ 

/*11/15*/ 

/*11/15*/ 

/*11/15*/ 

/*11/15*/ 

/*11/15*/ 

/*11/15*/ 

/*11/15*/ 

/*11/15*/ 

/*11/15*/ 

/*11/15*/ 

/*11/27P*/ 

/*11/15*/ 

/*ll/27*/ 

/*11/15*/ 

/*11/16P*/ 

/*11/16P*/ 

/*11/15*/ 


AX: /*ADD NEW EXPRESSION*/ 

/* T EXPRESSION LOCATION 

/* 0 OPERAND IN MAIN STORAGE 

/* 1 OPERAND IN A REGISTER 

/* 2 OPERAND IN TEMPORARY STORAGE 

/* 3 LOCATION FIELD IS AN 18 BIT LITERAL RF IS USED 

/* REGISTER MAY BE VALID 

PROCEDURE !T,L,RF) BITICAS); 

DECLARE !RF,T) BIT!BS)» 

L FIXED; 

CALL UCC!54); 

CALL GNXG; 

CALL CXF(0,TC3); 

IF !T(I3)--=1 THEN DO; 

CALL CXF(6,SHR!Tt2)) ; 

CALL CXF!5,0); 


*/ 

*/ 

*/ 

*/ 

*/ 

*/ 


/*11/15*/ 


/*11/16P*/ 
/*11/16P*/ 
/*ll/22*/ 
/*11/15*/ 
/*11/15*/ 
/* 11 / 18 */ 
/* 11 / 18 */ 
/■ni /1 8*/ 
/*11/18*/ 




CALL 
END; 
ELSE 00; 
CALL 
IF L 


CXF(2fL) ; 

CXF(1,L) ; 
< 24 THEN 


RUA(L+2)=GXN; 


END; 

IF^CCNTROlIKtEC X' ) ) THEN DO; 
GS='AX:•; 

CALL lxg; 

0'JTPUT = GS; 

END; 

CALL axg; 

RETURN GXN; 

END AX; 


/*ll/23’!=/ 

/*ll/24*/ 

/=Ml/24*/ 

/*ll/24=!=/ 

/’f^Il/27^/ 

/*11/23P*/ 

/«11/23P-/ 

/^1.1/22A*/ 

/*ll/22Av/ 

/= 11 / 15 ^/ 


/*R EGISTER HANDLING PROCEDURE S*/ 


vO 

o 


/* REGISTER NUMBERS: 

0- 7 XO - X7 

8- 15 AO - A7 
16- 23 BO - B7 
24- 31 NOT USED 
32-254 TEMPORARY REFERENCES 
255 DATA NOT LOADED 

*/ 


0 

1 

2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15 


register (REQUIRED) TYPES: 

BO 

AO 

Al&Xl|A2(IX2lA3CX3l A4&X4IA5&X5 (X REQUIRED) 
A6&X6 |a7&X7 (X REQUIRED) 

X0-X7 (ONE) 

B1-B7 (ONE) 

NOT USED 
not USED 
not USED 

AllxifA2&X21A3SX31A4&X4jA5&X5 (A REQUIRED) 
A6CX6 |a7&X7 (A REQUIRED) 

NOT USED 
NOT USED 
NOT USED 






THEN OUTPUT=»RTRT:» 1 |SR I I '' I I DR; 


RTRT: /^REGISTER TO REGISTER TRANSFER*/ 

PROCEDURE (SRItDRI); 

DECLARE (SRI,DRI) BIT(BS); 

DECLARE (SR,DR,RGtS,D) FIXED; 

SR=SRI; 

DR=DRI; 

CALL UCC(41); 

IF CONTROL(BYTE!'R' ) ) 

IF SR=DP THEN RETURN; 

S=SRfl7; 

0 _ Q * 

ROOAISR)=ROOA{SR)+1; 

ROOA(DR)=ROOA(DR)+1; 

RG=SHR(SR,3)C3; 

RG=SHL(RG,2)1(SHR(DR,3)G3); 

IF RTRTL(RG) = 38 THEN CALL ERROR(* INVALID RTRT ' 
IF ((RG=2)I(RG=6)I(RG=10))£D=0 THEN DO; 

CALL ERRORCRTRT TO BO • | 1 SR| I * :' I I DR, 10 ) ; 

END; 

IF RTRTL(RG)-. = 33 THEN EM ITC ( RTRTL ( RG ) , D , S , 0,0 ) ; 
IF RUA(DR+2)=0 THEN RUA(DR+2)=RUA(SR+2); 

END RTRT; 


IISRI I 


/*11/16A*/ 

/*ll/22*/ 

/*ll/22*/ 

/*ll/22*/ 

/*ll/22*/ 

/*ll/22*/ 

/*11/16A*/ 

/*11/22P*/ 

/-'t-ll/ie*/ 

/vll/18*/ 

/’ni/18-/ 

/*11/18*/ 

/*11/16A*/ 
I 1 DR,10) ;/'^ 11/16A*/ 
/-11/16A*/ 
/*11/16A*/ 
/==11/16A*/ 
/'ai/i6A^ / 
/*11/24*/ 
/*11/16A*/ 


SR: /* STORE REGISTER*/ 

PROCEDURE (R,A,RF); 

DECLARE (RF,R,A) FIXED; 

CALL UCC(56 ); 

IF CCNTROLIBYTECR' )) THEN OUTPUT='SR: 'IIR; 
R00AI7)=R00A(7)+1; 

IF R-.=7 THEN CALL RTRT(R,7); 
Ef1ITC(40,7,0,A,RF ) ; 

END SR; 


/*11/16A*/ 

/*11/16A*/ 

/*11/22A*/ 

/*11/16A*/ 

/*11/18*/ 

/*11/18*/ 

/*11/18*/ 

/*11/16A*/ 

/*11/16A*/ 


LR: /* LOAD REGISTER */ 

PROCEDURE (R,A,RF); 

DECLARE (RF,R,A) FIXED; 

CALL UCC(57); 

EMITC(40,1,0,A,RF); ^ ^ .. 

IF CONTROL ( BYTE!'RM ) THEN OUTPUT = *LR: 'llR; 
ROOA(l)=ROOA(l)+l; 

IF R-i=l THEN CALL RTRT(1,R); 

END LR; 


/*11/16A*/ 
/*11/16A*/ 
/* 11/22A*/ 
/*11/16A*/ 
/*11/16A*/ 
/*11/18*/ 
/*11/18*/ 
/*11/18*/ 
/*11/16A*/ 


LRD: /*L0AD REGISTER DIRECTLY*/ 

PROCEDURE (R,A,RF); 

DECLARE (RF,R) BIT(BS), 

A BITICAS); 


/*11/16P*/ 

/*11/16P*/ 

/*11/16P*/ 

/*11/16P*/ 





CALL UCC(42); 

IF R>23 THEN RETURN; 
ROOA(R)=ROOA(R) + 1 ; ^ „..-rr...-r 

IF CCNTROL(BYTE!'R')) THEN OUTPUT= 
DO CASE SHR(R,3); 

/^Oi LOAD X DIRECTLY*/ 
EMITC(57,Rt0fA,RF); 

/^li LOAD A DIRECTLY*/ 
EMITC(41,Rf0tA,RF); 

/*2: LOAD B DIRECTLY*/ 
EMITC(49,RtO,A,RF); 

/*3: INVALID*/ 

CALL ERRORCINVALID REGISTER:' 
END; /*CASES*/ 

END lrd; 


/* 

/* 

/* 

/* 

/* 


0 

1 

2 

3 


INDICATOR*/ 
*/ 

*/ 

*/ 

*/ 

*/ 


vO 

CvJ 


SRI: /*SET REGISTER 
ACTION 
SET RIU 

RESET RIU 
SET RBH 

^ RESET RBH 
PROCEDURE!W,R) FIXED; 
DECLARE (ItJfWtR) FIXEDL 
CALL UCC(33); 

IF R>31 THEN DO; 

CALL ERROR!'SRI ERROR 
RETURN; 

END; 

CONTROL (BYTE! *9' ) ) THEN 


IF 


'gs='SRI<' I hwl I '»* I |rI I •>' 


FOR REG 


DO; 


GW=OCTAL!RUA(SHR(W,l)&1)»24); 

GS=GS| 1 • • I !GW| 1 •c ; 

END; 

IF R>0 THEN I=SHL(ltR) ; 

ELSE l=l; 

If'’(W&1I-.= 0 THEN 1 = 0; 
w=SHR!w,i)ei; 


RUA!W)=!RUA!W 
IF CONTROL (BY 


'GW=dCTAL!J,24) 


ej) 11 

E( '9' 


i) THEN DO; 


GS = GSi 1 GW 
GW=OCTAL( 

GS=GSI1GW , , , 

GW=OCTAL(RUA(W)f24); 
OUTPUT = GSI 1 GW; 

END; 


>'1 . 

,24) 


/*11/16P*/ 
/*11/16P*/ 
/*11/16P*/ 
/*11/16P*/ 
/*11/16P*/ 
/v-il/16P*/ 
/*11/16P*/ 
/*11/16P*/ 
/^. 11/16P*/ 
/*11/16P*/ 
/>m/ 16 P*/ 
/*11/16P*/ 
/=<-'ll/16P*/ 
/*11/16P*/ 
/*11/16P*/ 

/*11/16P*/ 


/’^11/16*/ 
/*11/22A*/ 
/*11/16*/ 
/vll/16*/ 
/*11/16P*/ 
/*11/16*/ 
/* 11 / 16 */ 
/*ll/23*/ 
/* 11 / 21 */ 
/* 11 / 21 */ 
/*11/22P*/ 
/* 11 / 21 */ 
/*11/21P*/ 
/*11/19*/ 
/*11/19*/ 
/*11/19*/ 
/*11/19*/ 
/*11/19*/ 
/*11/24*/ 
/*11/21P*/ 
/*11/21P*/ 
/*11/21P*/ 
/*11/22P*/ 
/* 11 / 21 */ 
/* 11 / 21 */ 
/* 11 / 21 */ 






END SRI; 




INUSE: /* TEST REGISTER R TO SEE IF IN -USE */ /*ll/4 ON*/ 

PROCEDURE(R) BIT(l); 

DECLARE R FIXED; 

if PcS?ROL(BYTE('fMi’THEN OUTPUT^ • » ■ I I R 11 ’ lUT • i 

IF R=0 THEN RETURN RUA(0)C1; 

RETURN SHR(RUA(0)fR)Cl; 

END INUSE; /#ll/4 UP^/ 

HELD: TEST REGISTER R TO SEE IF IT IS BEING HELD */ /*ll/4 DN*/ 

PROCEDURE (R) BITd); 

IF^CCNTROLdYTEI 'P* )) THEN OyTPUT = • * * dR I I ’ RHT • ; 

IF R > 23 THEN RETURN 1; /*ll/12=f'/ 

IF R=0 THEN RETURN RUAIDCI; 

RETURN SHR(RUA(1)iR)&l; 

END HELD; /=^ll/4 UP<=/ 


/*11/22A*/ 

/=f=ll/16P*/ 

/*\ 1 / 19 "^/ 


/*11/22A+/ 

/#ll/24-/ 

/♦11/19*/ 

/*11/19=?=/ 


HOLDER: /* MAKES REGISTER R HELD */ /=i=ll/5 DN=fr/ 
PROCEDURE(R); 

DECLARE R FIXED; 

IF*'CGNTROL( WTEI'R' ) > THEN OUTPUT= ' HOLD’!^' 1 1 P ; 
IF R > 23 THEN RETURN; /*11/12'!'/ 

IF {R<16)&(R-*=3) THEN R=Rfl7; 

IF*” d<8 ) £ ( R^=6) THEN CALL SRI(2iRl8); 

END HOLDER; /*ll/5 UP=!'/ 


/*ll/20*/ 

/=!11/16P*/ 

/«11/16P*/ 


UNHOLD: /* MAKES REGISTER R -HELD */ /*ll/4 DN*/ 
PROCEDURE (R); 

DECLARE RFIXED; 

If''CONTROL(B^TE('RM) THEN OUTPyT =' RE LEASE* • | 1 RI 
IF R > 23 THEN RETURN; /*11/12*/ 

IF (R<16)£(R-=8) THEN R=R£7; 

IF*''(R<8) £7R-=6) then CALL SRI(3»R|8); 

END UNHOLD; /*11/4 UP*/ 


RSR: /* "RELEASE” (FREE) SPECIFIC REGISTER */ 

PROCEDURE (R); 

DECLARE RR FIXED; 

DECLARE R FIXED; 

CALL UCC(35); 


/*11/22A*/ 

/*11/22A*/ 

/*ll/20*/ 


/'^dl/ 16 */ 
/All/lCP*/ 
/*!1/16P*/ 


/*ll/24*/ 

/*ll/24*/ 
/*11/22A*/ 
/-‘11/16*/ 





IF (R<16) £(R-'=8) THEN R=R6i7; 

IF HELD(R) THEN RETURN; , 

IF CONTROL(BYTE!*R')) THEN OUTPUT=RR|l 
RUA(RR+2)=0; 

IF*^ { R<8 )&( R^=6) then call SRI(1?R|8); 
END rsr; 


FREED*; 


GSR: /4^GET SPECIFIC REGISTER'-!'/ /*ll/7 DN*/ 
PROCEDURE!R); 

DECLARE R FIXED; 

If'"CCNTRC)L( BYTeT'^R* ) ) THEN OUTPUT = Rll' 
IF R > 23 THEN RETURN; /*11/12^/ 

IF (R<16)&(R-=8) THEN R=R&7; 

IF'"(R<8)i(R-U) THEN CALL SRI(0,R|8); 
END GSR; /*ll/7 UP':=/ 


INUSE*; 


OUTPUT=*GFR -'IITII'-* 


SFR; /^search for a usable REGISTER=!‘/ 

PROCEDURE (T) FIXED; 

DECLARE (RTA,CRS) FIXED; 

DECLARE (TtI»J»RtO) FIXED* 

IF*'CONTROLtBYTE( • R* ) ) THEN 
C=T&8; 
j —T flT * 

IF (tA=3) £(T-^=4) THEN C=0; 

J=RT(SHL(T,1)» ; 

K=RT(SHL(Tt D-n); 

CRS = 0 * 

^ ~ CONTROL(BYTE(•/')) THEN OUTPyT=I 1 I *-' I 1J1 1I IK5 
ROOA(I) > CRS THEN CRS=ROOA(I); 

KlNUSE(I))&(-HELD(in THEN DO; 

IF '^ONTROL(BYTEMR*n^THgN^DO^^,^, FREE*; ELSE 

OUTPUT^^I|((U7)|C)||*> FREE*; 


I = 
IF 
IF 
IF 


IF (f<3)l(T>4) THEN RETURN I; 

RETURN (I 87)1C; 

^ NOTE^tAaT C will = 0 UNLESS AN A REGISTER IS REQUIRED 
END; 

RTA=24; 

DO I=J TO K; 

IF -HELD!I) THEN DO; 


/*ll/24«/ 

/=^^11/16A^/ 

/=i‘ll/ 18 ’t</ 

/*ll/24*/ 

/=-ll/16P*/ 

/*11/16P-/ 


/¥ll/22P^/ 

6*/ 

/^ai/i6P’i=/ 

/='-ll/16P^'/ 


/--^ll/23':'/ 

/=('ll/25-/ 

/V11/21-V 

/*ll/20*/ 

/-^11/18'-'-/ 
/-11/18*/ 
/*11/16^/ 
/=: 11/16^'/ 
/=!=ll/25-/ 
/*ll/16=i=/ 
/*11/22P’!=/ 
/*ll/25+/ 
/^11/24-/ 
/>"ll/23=!'/ 
/*ll/24*/ 
/*ll/23+/ 
/-ll/23=i=/ 
/’i'11/24^1'/ 
/*ll/23=:'/ 
/^-ll/23*/ 

/«ll/25=!=/ 

/''i'll/23-/ 

/^ll/24*/ 





IF 


IF ROOAd ) CRS THEN DO; 
CRS=ROOA(I); 

RTA=I; 

END; 

END; 


END; 

RTA < 24 THEN DO; 


T „ D T A • 

IF CONTROL ( BYTE( ' R') ) THEN DO; 

IF (T<3)|(T>4) THEN OUTPUT = *<* I I I I I 
OUTPUT='<' I i((I£7) 1C)1 1•> TAKEN*; 

IF (T<3i|(T>4) THEN RETURN I; 

RFTIIRN ( T &7 ) I C ; 


CALL ERROR!'ALL 'llTll* REGISTERS HELD»,1); 
RETURN T|32; 

END SFR; 


•> 


TAKEN'; 


ELSE 


/«ll/27-7/ 

/«ll/25-/ 

/*ll/25=^/ 
/'^ll/23*/ 
/*ll/24*/ 
/-';<ll/25*/ 
11/2 5”/ 
/=<=ll/23*/ 
/-ll/24>:=/ 
/*ll/23*/ 
/*ll/23*/ 
/*!1/24*/ 
/=^ll/23”/ 

/=d 1/2 3-7 
/*ll/23+/ 
/*li/23*/ 


expression PROCESSORS 




! /^DELETE EXPRESSION’S'/ 

DECLARE*^X BITICAS); /’f'EXPRESS I ON NUMBER=f=/ 

If'’CCNTROL ( BYT E( ' X') ) THEN OUTPUT='DX: 'MX; 

CALL GXG(X); 

^F‘"GXF(oi = 2 THEN CALL RELT ( GXF ( 2 ) ) ; 

IF GXF(5)=0 THEN CALL RSR(GXF(1)); 

CALL RXG; 

CNAX=CNAX-1; 

END DX; 

: /^LGAD EXPRESSION^/ 

DECLARE*^! BItIcAsII */'^EXPRESSION NUMBER*/ 

T BIT(BS), /*TYPE OF REGISTER REQD*/ 

W BIT(BS); /*WORK VARIABLE*/ 

If‘'C0NTR0L(8We('X'))1CCNTR0L(BYTE('R')) then 0UTPUT='LE:'1|E 
I 1*-> T'1 IT; 

CALL GXG{e); 

IF GXF(5)=0 THEN DO; 

W=GXF(2); 


/*11/16*/ 

/*11/16*/ 
/’ 11/16*/ 
/*11/16*/ 
/*11/16*/ 
/*11/16*/ 
/*11/16*/ 
/*11/16*/ 
/*11/16P*/ 
/*11/16*/ 
/*11/16*/ 
/*11/16*/ 
/*11/16*/ 

/*11/16*/ 
/*11/16*/ 
/*11/16*/ 
/*11/16=''/ 
/*! 1/16*7 
/*ll/24*/ 
/*11/22P*/ 
/*11/22P*/ 
/*11/16*/ 
/*11/16*/ 
/*11/16”/ 





/< 3*/ 
7 + 4 =!'-/ 

/ 

/« 9 =!'/ 

/=!'-10=i'/ 


7*12=*/ IF 


W=16 THEN RETURN W; 

IF W=8 THEN RETURN W; 

IF W=0 THEN RETURN W-; ^ ,, 

IF {W>0)£{W<6) THEN RETURN W; 

IF (W=6i|(W=7) THEN RETURN W; 

IF W<8 THEN RETURN W; 

IF (W>16)8(W<24) THEN RETURN W; 
7’('INVALID*7 
7»INVALID=4'7 
/t-INVALID=f'7 
; /^INVAL IU’!=7 , 

IF {W>5)8(W<14) THEN DO; 
EMITC(44»WfW,0,0) *, 

ROOAIW)=ROOA(W)+l; 

ROOAI16)=ROOA(16)+1; 

RETURN W; 

(W=14) 1 {W=15) THEN DO; 
EMITC(44,WtWtO,Q) ; 
ROOA(W)=ROOA(W) + l; , 

ROOAI16)=R00A(16)+l» 

RETURN W; 

END; 

7*13=^7 » 7*1 N VALID *7 

/«i4«/ ; 7*INVALID*7 

7*15*7 ; 7*INVALID*7 

END;_ 7*CASES*7 

IF^W>23'fHEN RETURN W; 

CALL RTRTIGXF(1),W); 

CALL RSRIGXFl1)); 

CALL DXG; 

CALL CXF{ItW); 

CALL AXG; 

CALL GSR(W); 

END*;^/*OPERAND IS NOW IN REGISTER W*7 

^F^W>23'tHEN RETURN W; 

RUA(W+2)=E; 

If‘'CONTr6l(BYTE{'7' )) THEN DO; 

OUTPUT=W; 

QUTPUT=GXN; 

OUTPUT=GXF(0); 

OUTPUT=GXF(1); 

OUTPUT = GXF(2) *, 


7*11716*7 
7*11716*7 
7*11716*7 
7*11716*7 
7*11716*7 
7*11716*7 
7*11716*7 
7*11716*7 
7*11716*7 . 
7*11716*7 
7*11716*7 
7*11716*7 
7*11726P*/ 
7*11726P*7 
7*11726P*7 
7*11726P*7 
7*11726P*7 
7*11726P*7 
7*ll/26P*7 
7*11726P*7 
7*11726P*7 
7*11726P*/ 
7*11726P*7 
7*11726P*7 
7*11716*7 
7*11716*7 
7*11716*7 
7*11716*7 
7*11723*7 
7*11723*7 
7*11716*7 
7*11716*7 
7*11716^7 
7*11/16*7 
7*11/16*7 
7*11/16*7 
7*11/16*7 
/^<11/16*/ 
7*11/23*7 
7*11/23*7 
7*11/24*7 
7*11/16*7 
7*11/23*7 
/*11/21P*/ 
7*11/23*7 
/*11/21P*/ 
/*11/21P*/ 
7*11/2 IP*/ 







vO 


0UTPUT = GXF(5) ; 

END; 

IF GXF(0)=3 THEN CALL LRD(W,GXF(2),GXF(7)); ELSE DO; 
CALL LR(W,GXF(2),GXF(7)); 

IF GXF(0)=2 THEN CALL RELT(GXF{2)); 

CALL CXF(0,1); 

END; 

CALL CXF(1,W); 

CALL AXG; 

CALL GSR{W); 

RETURN W; 

END LX; 


/*11/21P*/ 
/+11/2 1P«/ 

/^. 11/16+/ 
/= 11/16+/ 
/=«11/16+/ 
/•'m/i6+/ 
/+11/16+/ 
/+11/16+/ 
/*11/16*/ 
/+11/16+/ 


SX: /+STORE EXPRESSION*/ 

PROCEDURE (E,A,RF); ^ , 

DECLARE (E,A) BIT(CAS), /^EXPRESSION & DEST ADDRESS*/ 
(WtRF) BIT(BS); /+WORK AND RELOCATION FACTOR*/ 
CALL UCC(57); 

IF CQNTROL(BYTE('X*)) CCNTROL(BYTE(’R*)) THEN OUTPUT= 

• SX: E* ! I E I I *->• i I A I I * ( • I IRFI I•>• ; 

CALL GXG(E); 

IF ((GXF(0)=0)KGXF(0)=2))£(GXF(2)=A) THEN RETURN; 

CALL LX(E,4); /+LGAD EXPRESSION INTO REGISTER X6 OR X7*/ 
CALL GXG(E); 

W=GXF(1); 

CALL SR(W,A,RF); 

END SX; 


/+11/16*/ 
/+11/16*/ 
/=^11/16*/ 
/+11/16*/ 
/+11/24*/ 
/+11/22P*/ 
/+11/22P*/ 
/+11/16+/ 
/*11/16+/ 
/+11/16*/ 
/+11/16*/ 
/+11/16*/ 
/+11/16*/ 
/+11/16*/ 


TX: / + TRANSFER EXPRESSION*/ ^ ^ 

/*BY DEFINITION, AN EXPRESSION CANNOT CHANGE IN VALUE; THEREFORE 
/*THE SECOND EXPRESSION IS ASSUMED TO BE AN ADDRESS. 

/*THE SECOND EXPRESSION IS DELETED AFTER USE 
PROCEDURE (SE,DE,MOT); 

DECLARE (SE, /^SOURCE EXPRESSION NUMBER*/ 

DE, /+DESTINATIQN (ADDRESS) EXPRESSION NUMBER*/ 

MOT) PIT(CAS); /* MODE OF TRANSFER*/ 

(R,T) BIT(BS); 

A BIT(CAS); 


SOME B REG*/ 


DECLARE 
DECLARE 
CALL UCC(58); 

M0T=M0TG63; 

R=LX(DE,6); /* PUT DEST ADDRESS IN 
HOLD(R); /+PROTECT THE REGISTER*/ 
EMITC(46,LX(SE,4),R,0,0); /+STORE THE DATA*/ 
RELEASE(R); /* REMOVE PROTECTION OF THE ADDRESS*/ 
CALL DX(DE); /*DELETE THE ADDRESS EXPRESSION*/ 

END TX; 


/+ 11 / 16 */ 
,/*ll/16*/ 
/+11/16*/ 
/+11/16*/ 
/+11/16*/ 
/*11/16*/ 
/+11/16*/ 
/+11/16*/ 
/+11/16*/ 
/*11/16*/ 
/+11/24*/ 
/+11/16*/ 
/^ 11/16*/ 
/*11/16*/ 
/*11/16*/ 
/-'I'll/16*/ 
/*11/16*/ 
/'+11/16*/ 





HANDLER 


/❖CONSTANT 


❖/ 


vO 

00 


/❖10/18 DN^/ 


FINDS: /❖FIND STRING IN STRING CONSTANT TABLE ❖/ 

PROCEDURE (D,L) BIT(CAS); 

DECLARE (D,W) CHARACTER, 

L BIT(LCI), 

I fixed; 

CALL UCC(16); /❖10/29^/ 

/❖^EXTEND STRING TO A LENGTH WHICH IS A MULTIPLE OF ONE CDC WORD ❖/ 
DO WHILE LENGTHIW) MOD 10 -<= 0; 

w = • • 1 I w; 

/❖ CONVERT CHARACTERS TO CDC CHARACTER SET FROM IBM CHARACTER SET ❖/ 
DO I = 0 TO LENGTH!W) - 1; 

< IF ICCC(BYTE!W)) < 64 THEN 

W = SUBSTR!W,1) II CEN!ICCC!BYTE!W))); 

^^^^CALL ERROR!* INVALID CHARACTER IN STRING' |ISUBSTR!W,0,1),0); 

W = SUBSTR!W,1) II CEN!ICCCIBYTE!• •))); 

END; 

END; 

IF CNSC > 0 THEN DO; 

DO I = 0 TO CNSC; 

IF W = SCON! I ) THEN DO; 

IF CONTROL ( BYTE! ' C* ) ) THEN 

OUTPUT=Ill':('llSCAD!I)ll')='llW||*='; 

RETURN SCAD!I); 

END; 

END; 

END; 

SCON(CNSC) = W; 

SCAD!CNSC) = EMITSTRING!L,L,W); 

I=CNSC; 

^^output2VnewIm!cnU|I^:('I1scad!Cnsc)||m='IIwI1* = '; /❖10/19^/ 

IF CNSC < NSC THEN CNSC = CNSC + l;^ 

ELSE CALL ERROR !'STRING CON OFLO',0); 

RETURN I; 

END FINDS; /❖1O/10 UP^/ 


/❖ 


❖ / 


SYMBOL TABLE PROCEDURES 





/« SYMBOL 


0 

STPOS 

1 

TYPE 

2 

SLEV 

3 

KIND 

4 

COUNT 

5 

PI 

6 

SIZE 

7 

IDLVL 

8 

IDLM 

9 

PLP 

10 

XII 

11 

SVT 

12 

BASE 

13 

LOC 

14 

PVI 

1 5 

PRA 

16 

PRL 

17 

PVIA 


TABLE ENTRY NUMBERS; 

SYMBOL POSITION IN STRING TABLE 
TOKEN 

DEFINITION LEVEL 

^'''tJF ARRAy'^ELEMENTS OR PROCEDURE PARAMETERS 
PSEUDOVARIABLE INDICATOR 
LENGTH OF STRING IN BITS OR CHARACTERS- 
INITIAL,DEFAULT, OR LITERAL (LIST BASE) POINTER 
DECLARATION LIST POINTER (BASE) 

PARAMETER LIST POINTER 
EXTERNAL/INTERNAL INDICATOR 
STRING TABLE (STAB) TYPE 
PRCGRAM(O) OR DATA(l) BASE OF ADDRESS 
ADDRESS OF DATA OR CODE 
PARAMETER/VARIABLE INDICATOR 
PROCEDURE RESULT ADDRESS 

PROCEDURE REFERENCE LIST (BASE) Ar^r^nccc 

PSEUDOVARIABLE (EXECUTION TIME) INDICATOR ADDRESS 




vO 

-JD 


FIXED; 


BCSTE: /^QhSlC CHANGE SYMBOL TABLE 
PROCEDURE (E,P,V); /^lO/22 DN*/ 

DECLARE (E,P,V,L,M,' 

W=SHL(P,2); 

P=YD(W+1); 

l=yd(w-h2) ; 

W=SHL(E,3)+YD(W) ; 
M=SHR(»FFFFFFFF”, 32-L); 


ENTRY PROC*/ /*\0/3l 


V=V&M; 

M=SHL(M,P); 

M=“>M; 

Y{W)^Y(W)£M; 

v=shl( v,p); 

Y( W )=Y( W) v; 

END BCSTE; /’^^lO/Sl*/ /*10/22 UP*/ 


*/ 


/*11 

/*11 

/*11 

/*11 

/*11 

/*11 

/*11 

/*11 

/*11 

/*!!/ 

/* 11 / 

/* 11 / 


/17*/ 
/17*/ 
/17*/ 
/17*/ 
/IT*/ 
/ 17 */ 

/n*/ 

/17*/ 

/17*/ 

18*/ 

IR*/ 

18 */ 


BGSTE: /*BASIC GET SYMBOL TABLE ENTRY PROC*/ 
PROCEDURE (E,P) FIXED; /*10/22 DN*/ 
DECLARE (E,P,V,L,M,W) FIXED; 

W=SHL(P,2); 

P=YC(W-H) ; 

L=YD(W+2)^ 


/*10/31*/ 


/V 11/17*/ 
/-I1/17*/ 
/*11/17*/ 







W=SHL{E,3)+YD{W); 
M=SHR{«FFFFFFFF”, 32-L 
V=SHR(Y(W)t P)SM; 
RETURN V; 

END BGSTE; /^10/31^/ 


); 

/* 10/22 


UP*/ 


/*11/18*/ 

/*11/17*/ 

/*11/17*/ 

/*11/17*/ 


CSTE: /^CHANGE SYMBOL TABLE ENTRY PROCEDURE*/ /*10/31 DN*/ 
PROCEDURE (EtP?V); 

DECLARE (E,P,V} FIXED; 

DECLARE N CHARACTER; /*ll/8*/ 

CALL UCC(3); 

IF P > 17 THEN RETURN; 

IF CGNTROLIBYTE!•Q’)) THEN DO; 

N=* *1 SURSTR(STENLtP*5,5) 


/*ll/8 

I* ’ 


DN*/ 


OUTPUT='CHG*1 (Nl 1E I I • 'llBGSTE(E,P)1 I ' 
END; /*ll/8 UP*/ 

CALL BCSTE(E,P,V); 

END CSTE; /vlO/31 UP*/ 


I iv; 


O 

O 


GSTE: /*GET SYMBOL TABLE ENTRY PROCEDURE*/ /*10/31 DN*/ 
PROCEDURE IE,P) FIXED; 

DECLARE (E,P,V) FIXED; 

DECLARE N CHARACTER; /*ll/8*/ 

CALL UCC(4); 

IF P > 17 THEN RETURN 0; 

V = BGSTE!E ,P ) ; 

IF CCNTROL ( BYTE! • Q' ) ) THEN DO; 

N=' •I ISUBSTR!STENL;P*5,5), 

0UTPUT='GET'1 INI 1 El I' *||V! 

END; /*ll/8 UP*/ 

RETURN V; 

END GSTE; /*10/31 UP*/ 


/*ll/8 DN*/ 

' ' t 

' *llv; 


/*ll/25*/ 


/*ll/25*/ 


/* STRING TABLE HANDLING PROCEDURES */ 


STRINGINUSE: 
PROCEDURE 
DECLARE !T,J) 
CALL UCCI14) 
IF I > STIMX 
J = NSP; 

DO WHILE J < 
IF I = J 


/*10/29 DN*/ 
II) BIT!1); 
FIXED; 


THEN RETURN 1; 

= STIMX 

THEN RETURN 0; 
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J = STIE(J); 

end; 

RETURN 1; 

END stringinuse; 


/*10/29 UP*/ 


I I 


I f 


GETSTRING: /*9/20 DN*/ 

PROCEDUREd) CHARACTER; 

DECLARE (ItJtKtL) 8IT(16) 

R FIXED; 

CALL UCC(13); /*10/29*/ 

IF I > STIMX THEN RETURN 
IF -« STRINGINUSE! I ) THEN RETURN 
R=STIE(I); 

J = R & ''FFFF"; 

K = SHR(R,16); 

IF~J^>^STRMX THEN RETURN !'5 
RETURN SUBSTR(STAB!K)»J»L); /*9/27*/ 
END GETSTRING; 


r 


EQUALSTRING: . 

PROCEDURE !A,B) BIT!1); 
DECLARE A CHARACTER, 

(B,I) BIT!16); 
CALL UCC(ll); /*10/29*/ 
IF B > STIMX THEN RETURN 
I=LENGTH!A); 

IF I = STEL !B) THEN DO; 
IF A = GETSTRING !B) 
END; 

RETURN O; 

END EQUALSTRING; 


o; 

THEN RETURN 


DELETESTRING: 

PROCEDURE!!); 
DECLARE I BIT!HW) 


/*10/30*/ 


CALL UCC!12) ; /*10/29*/ 

IF I > STIMX THEN RETURN; 
STIE!I) = NSP; /*10/29*/ 

NSP = I; /*10/29*/ 

R F TIJ R M * 

END DELETESTRING; /*9/20 UP*/ 


NEWSTRING: 
PROCEDURE 
DECL-ARE S 


/*9/22 DN*/ 
(S,T) SIT(16); 
CHARACTER, 


*10/29*/ 
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T BIT(3), 


R F IX E D 5 

CALL UCC(IO); /*10/29*/ 
IF NSP > STIMX THEN DO; 
CALL ERROR CSTOFLO 


* il S,0) 


RETURN STIMX + l; /+'10/30*/ 

CSP ='^NSP; /*10/29 DN*/ 

NSP = STIE(NSP); 

STAB(CSP) = S-, 

R = SHL(CSP,16); 

: flNGTH(S); , 


lste: /*list symbol 

PROCEDURE (E) 
DECLARE (I,E) BIT 
DO I = 1 TO 17; 

GW=I FORMAT(G 

gs=g5I I gw; 
end; 

END LSTE; 


TABLE 
(HW); 
STE( E, 


ENTRY*/ 


I)f6); 


/*11/23P*/ 

/*ll/23P*/ 

/*11/23P*/ 

/*ll/25*/ 

/*11/23P*/ 

/*11/23P'''V 

/*ll/23P*/ 

/*ll/23P*/ 







H 


ANN 


R 




SCAN: /* THE MASTER SCANNER AND ITS ASSOCIATED PROCEDURES 
PROCEDURE; 

DECLARE S 2 V BIT(BS); 

DECLARE NW( 3 ) FIXED; 


/* 11 / 2 ?P-/ 

/= 5 ' 11 / 23 P*/ 

/♦11/23P’!'/ 

/* 11 / 23 P^/ 


CARD IMAGE HANDLING PROCEDURE 


IF 


o 

uo 


OR 


GET CARD: 

^^°/S'^DOEi ALL CARD READING AND LISTING 
DECLARE I FIXED, /* 9 / 19 «/ 

Ll^r;?H^r^?fAJI?’/SH^"EN^DO; /.9/14 DN./ 

REST CHARACTER; /’!' 10 / 30 */ 

^Erti^?^^Li^KTH(TEXT.-l, 

CP=o; 

litsave='•; 

RETURN; 

END; /-:* 9/14 UP"''/ 

BUFFER = INPUT; 

IF LENGTH(BUFFER) = 0 THEN 

DO; /* SIGNAL FOR EOF */ 

CALL ERROR ('EOF MISSING 
BUFFER = ' -/ EOF 

END; 

ELSE ESTAT( 3 )=ESTAT( 3 )+l; 

DO^^/S~THE^MARGIN^CQNTROL FROM DOLLAR 
’l = LENGTHCBUFFER) - MARGIN.CHOP; 

REST = SUBSTP(BUFFER, I); 

BUFFER = SUBSTR(BUFFER, 0 , I)> 

end; 

ELSE REST = " ; 

TEXT = BUFFER; ^ , 

IPJ( 3 LTROu 5 vTE('J'))''SEN'ou(f>UT - BUFFER; 
ELSE IF control! BYTE( • L' ) ) THEN 

IF d 0 NTRnL(BYTE('O')) THEN /« 10 / 1 -/ 
DOUBLE_SPACE; /* 9 / 30 -/ 


❖ / 


COMMENT STARTING 
END,.EOF,.•; 


IN COLUMN 1 .', 1 ) 


/* 10 / 30 */ 


IF 


I =<'/ 





TEMP=GETSTRING(ML(CPNLB)&"3FFFF«); 


INFOPM4TloNiTEMpfl;/ll|NFORMAI!ON: /»U/7./ 
TEMfSi'^MRMATTI t7):’/nl/U*/ tllsUFFERII' Ml 

nUTPUT=I F0RMAT(FSTAT{3)t4) 1 1 • .'IIBUFFERII . I I 
tSpI IRESTI IIMFORMATION; /*11/12-/ 

INFORMATION = XI; /''^^10/30*/ 

END ; 

CP = o; 

END get_card; 




/#11/19P^/ 


o 

4 ^ 


CHAR: 

for strings to avoid card boundary problems */ 

IF CP^<='^TE^T_LIMIT THEN RETURN; 

CALL get_card; 

END char; 


XBS: /^i'EXPAND BIT STRING*/ /*10/3 DN*/ /*Ll/9 
declare^{d!S1r^^charactIr, /*data, work. £ 

(K;Mi^FIXED;^/*10/12*/ /*ll/9 OP*/ 


DN*/ 

RESULT*/ 


^^^PROCEDUREID) CHARACTER; /*10/1 DN*/ 
DECLARE D CHARACTER. 

R CHARACTER. /*10/zlA*/ 

I BITIBS); /*10/1A*/ 

DO°;^HTlPbYTE(D.I ) = BYTEC •); 

1 = 1+1; /*10/1A*/ 

IF I^=^0 THEN R = D; /*10/21A*7 
ELSE R = SUBSTRID.I); /*10/21A*/ 
RETURN R; /*10/21A*/ 

end deblank; 


SBSB: /* SET BS BASE */ /*10/2 

^‘^^PROCEDURE (D) CHARACTER; 
DECLARE (D.R) CHARACTER, 

B BIT(BS); 


ON*/ 


/* 11 / 21 */ 





o 

ui 


IF BYTEID) -•= BYTE('(') THEN RETURN D; 

R = DEELANK(SUBSTR(Dt1)); 

B = BYTE(P) L 15; 

^CALL ERROR!MNVALID BIT BASE ' 11SUBSTR(RfOf 1>f0); 

BSBASE=4; 

END; 

ELSE BSBASE = B; 

IF'eYTEIRr-^'^eYTElMi) fHEN CALL ERRORl • M I SS ING I IN BI TSTR ING • , 0 1 ! 

RETURN R; /*10/5=<^/ 

END SBSB; /''i'10/2 UP^/ 

COUNTB: /=« COUNT BITS */ /^lO/l DN*/ 

PROCfiDURE (D) BIT(HW); 

DECLARE (DfW) CHARACTER, 

I BIT(BS); 

BSBASE=4; 

w=d; 

w”=’deblank(w ); /*io/i8=i'/ 

f’O ‘^If‘'BYTe'(wI^='''bYTE??( • ) THEN W = SBSB(W); 

V^^^DEBLANkIsUBSTR! Wf 1) ) ; /=«^10/18^/ 

END; 

RETURN I; , ,, 

END COUNTB; /*10/1 

IF LENGTH(D) = 0 THEN DO; /=i'10/21 DN*/ 

LH,RH=0; 

RETURN "; 

FND; /-10/21 UP-/ 

BSBASE=4; 

R= • • ; 

L=COUNTB(D); 

K=o; 

BSBASE-4,l /^j^o/20*/ 

W-DpLANK|D )^1 p _ Q. ^ 71^10/20*/ 

DO '^’if'-byTE(w1^='^BYTE( M ' ) THEN W = SBSB(W); 

ELSE do; 

M=RYTE(W)? 

= THEN M = M-BYTE.-A. 

ELSE do; 


) + 10 





o 


CALL ERRORCILLEGAL BS CHAR (•I 1SUBSTR(W,0,1)I 1 ' ) S0); 

M=o; 

^’c^LL^ERRORIMNVALID^BS CHiRCllSUSSTR(W,0,l)ll')',0); 

M=o; 

END; 

DO I = 0 TO BSBASE - 1; 

K=SHL(K,1); 
p = p + l; 

K=K|(SHR(M,BSBASE-1-I)&1); , 

IF P > 5 THFN DO; /V10/17-^/ 

S = CENjK); 


R = R 11 s; /*10/21*/ 
K.,P=o; 

END; 

end; 

IF LENGTHLW) > 1 THEN W = SUBSTR(Wfl) 
ELSE W = *'; /’i'-lO/21A=!-/ 

W = DEBLANK(W); /=<'10/21A*/ 

END; 

LH»RH=L; /*10/21’!‘/ 

RETURN R; 

END X3S; /* 10/3 UP*/ 


/*10/21A*/ 


'^^*^PROCEDURE (A,B,C) BIT(16); /*9/14 DN*/ 

DECLARE A CHARACTER, 

(SI,S3) BIT(16); /*9/14 UP*/ 

^fcSTs'^WlLt’Nf-.VER nrREpISNCED HERE WITH SYMBOL TABLE EMPTY */ 
°°SP="cSTS°-^i3; ^’/* SEARCHES FROM LAST ENTRY DOWN; DOES NOT TRY 0 */ 


IF GSTE(S1,2) >= C THEN DO; /*10/30*/ 


IF GSTEISl.Ill = B THEN /YCSTS IS THE # OF THE NEXT ENTRY »/ /MO/BO"/ 
If’eQUALSTRING(A,GSTE(S1,0II THEN /Y10/30Y/ 





1IBI 1 • I ICl I • ) 


•I isiM'C; 


O 


DO; /=^=9/l 4^/ 

IF CONTROL(BYTECFM) THEM 
DO; /*10/31 DM*/ 

GS='*-FIMD • I lAl-l ’ ( • . . 

CALL LSTE(Sl) ; /^ll/TV , 

OUTPUT=GS 11 •) ’ ; /"ai/7«/ 

END; 10/31 UP-/ 

RETURN (SI); 
end; /-9/14*/ 

END; /*9/14’!'/ 

END; /-9/14*/ 

END; 

IF CONTROL(BYTE(* F* ) ) THEN OUTP UT = A | I • ( ' I 1 B | | • t * I 1 C 1 | * ) : * I I ' *NULL* •! 
RETURN O; 

END FIND; 

IDT; /*LOOK UP IDENTIFIER £ SEND TO PROPER SCAN CASE’'^/ 

PROCEDURE (A) B IT(8 ) ; /*ll/9 DN-/ 

DECLARE A CHARACTER* , 

SI BIT(BS); /*ll/9 UP*/ 

RESWD: /* ROUTINE TO LOCATE RESERVED WORDS */ /*9/15 DN */ 

PROCEDURE (SYMB) BIT(8); 

DECLARE SYMB CHARACTER, 

S3 BIT(l) , /*9/15=>‘/ 

(S1,S2) BIT(8); 

S1 = LENGTH(SYMB) ; 

S3=FOP; /*9/15*/ 

F0P|FALSE;^/*9/15*/^ServeD LIMIT THEN DO; 

^DQ S2 = V INDEX(Sl-l) TO V^INDEX(Sl) - 1; 

IF byte (V(S2)) -•= BYT^C<') THEN DO; 

IF SYMB = V(S2) THEN RETURN S2; 

END; 

END; 

FMn* / ??>^ / 

FOP=S3; /* NOT A RESERVED WORD */ /*9/15*/ 

RETURN 0; /*9/23*/ 

END RESWD; /*9/15 UP*/ 

TQKEN=PESWD(A); /*9/15 DN*/ 

IF TOKEN =DCLT THEN RETURN (9); ELSE 


/*9/30*/ 





IF 

IF 

IF 

IF 

IF 

IF 


/i-9/29^/ 


TOKFN = XTRNT THEN RETURN_( 10) ; E 

TOKEN = ENDT THEN RETURN (11); ELSE 
TOKEN = EOFT THEN RETURN (12) ; ELSE 

TQKEN=DOT THEN RETURN (14); ELSE 
TOKEN = LITT THEN RETURN (13); ELSE 
TOKEN ->= 0 THEN RETURN (4); 

IIP*/ 

IF INDEC RSS THEN SI = FIND(A,0,CLEV) 

ELSE SI = FIND(A,0,0); /«9/29*/ 

RSS=FALSE; /=!'-9/29*/ . , 

™j^^CO«^rSHL(LTE(Clfpi5RSE^STACK(SP))?SHRTTOKEr3,2)),SHL(TOKEN,l) 
-O^THEN^DO^^^^^^Clev); /vlO/30 DN-/ 

TOKEN = GSTE(S1,1); 

END; /*10/30 UP=J=/ 

STLOT=Sl; 

IF S1=0 THEN RETURN (3) 

END IDT; 


ELSE RETURN (4) 


/-m/3*/ 


& *'06’')) 


/*11/17*/ 


o 

00 


NEXTCHAR: 

PROCEDURE CHARACTER; 

CALL CHAR; 

RETURN SUBSTR(TEXT,CP»1); 

END NEXTCHAR; 

SCAN2: 

* PROCEDURE BIT(S); 

DECLARE PC CHARACTER* 

(S1,S2*JJ) FIXED; 

FAILSOFT = TRUE; 

BCD = NUMBER^VALUE = 0; 

WAD = 0; /*10/l5*/ 

STLOT=0; /*10/4*/ 

Vi0RK=0; /*10/4*/ 

LH=0; /*10/4^.^/ 

RH=0; /*10/4*/ 

WMSKL=0; /*10/4*/ 

DO ^p^[;^^^,fH(LlTERAL) > 0 THEN DO; /*9/14 
IF LENGTFKL ITSAVE) = 0 THEN LO, 
LITSA\/E = SUB3TR(TEXT,CP); 
TEXT-LITERAL; . . 

TEXT_LIMIT=LENGTH(TEXT)-l; 


/* 11 / 18 */ 

/*ll/ 18 */ 

/*11/18-/ 

/^ 11 / 18 */ 

/-11/ie*/ 

/* 11 / 18 */ 

/*11/1S*/ 

/>ni/i8*/ 

/*11/21*/ 


DN*/ 
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LITERAL='*; /*10/3*/ 

CP=0; 

end; 

> SHL(STRMX»2) THEN DO; ,, 

CALL ERROR('literal TOO LONG »1); 

END; 

ELSE DO * 

Tf:xT=SUBSTR(TEXTtCP) ; 

LITERaSlITERALI |sC)BSTR(TEXTtO,STRMX-CP+n; 
LITSAVF=SUBSTR(TEXT,STRMX-CP+1)IILITSAVE, 

CP = o; 

text=ltteral; , 

text_limit=length(text)-i; 

LITERAL=''; 

END; 

END ; 

^‘■TEXT°tlTERAL| 1SUBSTR(TEXT ,CP) ; 

LITERAL='•; 

TSTiLIMIT=LENGTH(TEXT)-i; 

END ; 

END; 

^^LiTSAVF=SUBSTR(TEXT,CP)IILITSAVE; 

TEXT=LITERAL; 

LITERAL=*'; 

TEXTiLIMIT=LENGTH(TEXT)-l; 

end; 

END;^’ /*9/14 UP*/ 

IF CP > TEXT_LIMIT THEN CALL GET_CARO; 

^‘■^DO; /* DISCARD last SCANNED VALUE */ 

TEXT_LIM1T = TEXT^LIMIT - CP, 

TEXT = SUBSTRITEXi, CP); 

CP = o; 

fir- ^BRANCH ON NEXT CHARACTER IN TEXT 
DO CASE CHARTYPEIBYTEITEXT)); 
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/# CASE 0 ILLEGAL CHARACTERS */ 

CALL°E^ROR^( nLLEGAL^CHARACTERt"^' || SUBSTR(TEXT, 0, 1)); 

/« CASE 1 BLA^JKS */ 

/* NOT_LETTER_nR_DIGIT = TRUE */ 

do; 

DO WHILE BYTEdEXTf CP) = BYTEC ') & CP <= TEXT_LIMIT; 
CP = CP + i; 

end; 

CP = CP - 1; 

end; 

CASE 2 CHARACTER STRING QUOTE (DOLLAR) ♦/ 

/* NOT_LETTER_OR_DIGIT = TRUE */ 

DO; 

PC = nextchar; /^9/zq on*/ 

51 = PFCC; 

52 = PFNC ; ^ 

DO )flS2-. = BYTE('$• ) THEN RETURN 2; 

lPsr = BYTEi'$nb2 = BYTEC$') THEN S1 = PFNC; 

ELSE SI = S2; 

PC = CURCHAR; 

S2 = PFNC; 

END; /=<<9/28 UP*/ 

END; 

/* CASE 3 SLASH IE. DIVIDE OR COMMENT */ 

/* NOT_LETTER_CR_DIGIT = TRUE */ 
nn • 

’call CHAR; /* MAY LOSE A CHARACTER HERE 
IF PFCC=BYTE(•*’) THEN DO; 

S1.S2=BYTE(' '); /^COMMENT*/ 

DO WHILF -(S1 = BYTE('-'* > E S 2 = PYT E C / ' ) ) ; , 

IF S1 = BYTE{'$') THEN [)0; /^CONTROL*/ 

C0NTR0L(S2) = C0NTR0L{S2); 

DO NOT USE $ OR $$ - / 

IF S2 = BYTECZ') E RE AO I NG_L I BR ARY 
QUESTIONABLE COPE -/ 

READING_LIBRARY=FALSE; 

END; /* END QUESTIOMABLE^CODE */ 

ELSE IF S2 = BYTE('l') THEN cJECT PAGE, 

ELSE IF S2 = BYTE{'.') THEN /=:-'Q/14v/ 

IF CONTROL(S2) THEN MARGIN_CHGP=TEXT_LI MI 


/* 11 / 21 */ 

/* 11 / 21 */ 


IF DIVIDE */ 


* 11/21 
* 11/21 
* 11/21 
* 11/21 , 


THEN DO; 


/*iO/l*/ 

T-CP+1; 
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ELSE MARGIN_CMOP = 0; 


END; 


END; 

S1=S2; 

CALL CHAR; , 

S2 = BYTE(TEXTtCP) ; 
END; 


/*9/28 DN-/ 


ELSE 

PC 

51 

52 
DO 


IF PFCC=BYTE{'/') THEN DO; 
= NEXTCHAR; 

= PFCC; 

= PFNC; 

FOREVER; 

IF S1=BYTE(’ 

CALL CHAR; 


/*11/22A-/ 


) THEN DO; 


/• ) SS2 = BYTE{ • / • 

/^9/30^/ 

BCD = XBS(BCD); / 

IF CONTR0L(BYTE(*0’)) then / 

DO I = 0 TO LENGTH(3CD) - 1» - 

OUTPUT = OCTAL!BYTE!BCD,I),6); 
END; /=!^10/18-/ 

IF RH > 60 THEN DO; 

WMSKL=RH MOO 60; 

LH=RH; /^l0/23-/ 
number_value=rh; 

RETURN 6; 

end; 

WMSKL,NUMBER_VALUE=RH; 

DO WHILE LENUTHIBCD) < 10, 

BCD = CEM(O) ti BCD; /«10/18*/ 
END; /=!'10/18*/ 

0 TO 4; /=f=10/18’^'/ 

SHlVlhU) I (BYIEIBCP, 


/« 11 / 21 -/ 


10 / 18 =!=/ 
/=!= 10 / 18 */ 
/=!' 10 / 18 V 


DO I = 

LH = 

RH = 
END; 

IF WMSKL 
RETURN 5 


SHL(RH,6) 

/*10/18-/ 

> 48 THFM RETURN 
/4i0/18*/ 


__I) c 

(BYTE!BCD,1+5) 


63); /*10/18#/ ^ 
C 63); /*10/18«/ 


8 


/=;=10/18=!=/ 


END 


END; ,, ^ 

BCD = BCD II PC; 
PC = curchar; 

51 = S2; 

52 = PFNC; 

end; 

/^o/BO’;^/ 


ELSE do; /'^9/30^/ 





112 


TOKEN = DIVIDE; 

RETURN (1); /*9/28 UP*/ 

END; /*9/30*/ 

END; 


/* 9/14 DN */ 


/* CASE 4 A LETTER */ 

/* NOT_LETTER_OR_DIGIT = FALSE */ 

DO; /*9/22*/ 

PCTR=0; /*9/14*/ 

DO FOREVER; . . 

BCD=BCD SUBSTR(TEXT,CP,1);^ ^ 

IF BYTE(TEXT,CP) = BYTE!'.') THEN DO; 

''oUTPUT= ^*** WARMING: COMPILER INTERPRESTS NAME AS (Ml 
SUBSTR(BCD,0,LENGTH(BCD) -2) II MM /*10/2*/ 

BCO=SUBSTP]BCD,0,LENGTH(BCD)-2); ^ 

TEXT = M M1SUESTR{TEXT,CP); /*1Q/1A*/ 

TEXT_LIMIT = LENGTHITEXT) -1; /*10/1^/ 

CP=0; /*10/1*/ 

RETURN IDT(BCD); 

END; 

ELSE PCTR=PCTR+l; 

END; 

ELSE PCTR=0; /* 9/14 UP*/ 


CALL CHAR; . .. . 

IF (CHARTYPE(eYTE(TEXT,CP)) C 
DO; 

IF BYTE 


4) 4 THEN /*10/30*/ 


YTE(BCD,LENGTH!BCD)-1) = BYTE(‘.M THEN DO; /*10/2 ON*/ 
BCD = SUBSTR(BCD,0,LENGTH(BCD)-1); i iornI I Mt 
OUTPUT = '*=!'* COMPILER INTERPRETS NAME AS (* liBCDII') 


OUTPUT 

TEXT= II SUBSTR(TFXT,CP); 

TEXT_LIMIT = L£NGTH(TEXT) -1; 
CP = 0; 

END ; 

RETURN lOT(BCD); /*10/2 UP*/ 

END; 

END; 

END; /*9/22*/ 


/* CASE 5 A DIGIT */ , 

/* NOT_LETTER_OR_DIGIT = FALSE */ 


DO; 


/* DIGIT: A NUMBER */ 
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END; /*10/16-/ 


TOKEN = NUMBER; 

S2 = CP » 

DO I = 0 TO 3; NW(1) =0; 

°° TO text.limit: 

IF S1^<^”F0»^THEN^RETURN (0); iiFn«»- 

NUMBER VALUE = 10*NUMBER VALUE + SI ~ F0"» 

NW(3T=10#NW( 3)+ SI - "FO”; /=f'10/16 DN^/ 
DO I =_0 TO 2; 

~ SHR(NW( J) »15) > 0 THEN DO; 

DO WHILE SHR(NW(J)»15+JJ) > 0; 
jj =: jj + i; 

NW(J-1)’= SHLINWIJ-l)tJJ); 

NW(J-1)=NW(J-1I + SHR(NW(J),15); 
NW(J) = NW{J) E "7FFF"; 

END; 


ir 


END: 


IF SHR(NW(0)»3) > 0 THEN 

OUTPUT •= MARGINAL NUMBER*; 

IF SHRINW(0)rl^) > 0 THEN DO; 

CALL ERROR! 'NUMBER TOO BIG',0); 

NW(0)=NW(0) E "3FFF"; 

END; /* 10/16 UP^/ 

BCD=BCD| 1SUBSTR(TEXT,CP,1) ; /*9/14*/ niriT*;^/ 

/^(‘BCD NOW REPRESENTS NUMBER AS STRING OF DIGITS*/ 

END; 

CALL GET_CARD; 

END; 

END; 


CASE 6 A PERIOD (.) ,, 

/* N0T_LETTER_0R_DIGIT = FALSE */ 


DO; 


IF PARSE_STACK{ SP) = PERIOD_TCKEN | PARSE_STACK{SP) - 
COMMA^TOKEN) E PRSS THEN DO; /*9/30->‘/ 


PRSS=TRUE; /*9/30*/ 
RSS=TRUE; /*9/29*/ 

RfD = VAR(SP); /*9/30= 


/ 


CP = 0; 

S P= SP"1? 

RETURN IDTIBCD); /*9/30*/ 
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END; 
ELSE DO; 
TOKEN 
PRSS 


PERIOD TOKEN; 
FALSE; 


END; 


CP=i; 

BCD='.•; 
RETURNd ) ; 
END; /'.=9/29^</ 


/^9/2b^/ 


CASE 7 (NOT USED) 

/* NOT_LETTER_nR_DIGIT = 


FALSE */ 


END; 

END; 

CP = CP 
END; 

END SCAN2; 


/« CASE 8 TRUE SPECIAL CHARACTERS */ 
/'* NOT_LETTER_OR_DIGIT = TRUE -/ 

DO CP = 0 TO NTSC; ,tcyt» 

IF BYTE(SPECIALStCP) = BYTE (TEXT) 

DO; 

STLDT=CP; 

TOKEN^SCTOK(CP); 

BCD = SUBSTR(TEXT ,0,1 ) ; /^9/26-^/ 
FriP = FALSE; /’!=9/29*/ 

RETURN (1); 

END; 


THEN 


+^i;°^/^^advance^scanner and resume search for token 


CALL UCC(19) ; />!'10/29-/ 

DO forever; /=1'-9/14’:'/^_ 

S2V=SCAN2; /* LABEL FIXUP 


IF FOP THEN FOP2=lRUE, 


ELSE IF FaP2 .. 

IF CONTROL! BYTE( ' S’ ) ) 
OUTPUT=’SC AM( 'IIBCD 
OUTPUT = LH 1 I * • 
END; /*9/26*/ 

fop=false; 

DO CASE S2V; /=^9/15*/ 


/ /^rQ/l5 DN=i'/ 

/^ 9 / 29 =^/ 

THEN FOP2 = FALSE; /-9/29*/ 
HEN DO; /t*?/26>f/ ^ 

• ):• 1jS2V| I*(' 1 iTUKcNl I 
RH 1 ' * 11 wmskl; /* 


’ ) = ' I |NUMBER_VALUE| I*3' 
10 / 21 */ 


IISTLOT 
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DO; 


0 NUMBER */ 

/*10/16 DN=!=/ 
LH=In!W(0); 

LH=SHL(LH,15)+NW(1); 
RH=NW(2); 

RH=SHL(RH,15)+NW(3); 
RETURN; 

END; /*10/16 UP*/ 


/* 1 SPECIAL CHARACTER */ 


DO; 


/*9/15*/ 

RETURN; /*9/15*/ 
END; /*9/15*/ 


/* 2 STRING */ 

DO; 

TOKEN=STRING; 

RHt LH= LENGTHtBCD); 
WMSKL = (LH MOD 10) 
BCD = IBMCDCIBCD); 
RETURN; 

END; 


/* 10 / 2 ?*/ 

* 6; /*10/23*/ 
/♦10/17*/ 


/* 3 IDENTIFIER */ 
RETURN; /*9/22*/ 


/* 4 DEFINED NAME */ 

DO; /*9/15*/ 

IF TOKEN=LITT THEN 
/* IF TOKEN = LITT 
A VARIABLE WHICH 
SINCE THAT TERMINAL 
IF F0P2 THEN DO; 

FOP=TRUE; 

FnP2=FALSE; 

PHD; /*9/29 UP*/ 

LITFRAL = GETSTRING(GSTE(STL0Tt6)) ; 
END; /*9/29*/ 

ELSE RETURN; /*9/14*/ 

END; /*9/15*/ 


do; /*9/19*/ /*9/29 DN*/ /*11/13*/ 

AND THIS CASE WAS CHOSEN, THEN THE LITT 
IS A LITCQN AND NOT THE TERMINAL SYMBOL 
EXITS AT CASE 13 */ 


/*10/30*/ /*11/13*/ 


/* 5 SHORT BIT STRING */ 
DO; 

token=number; 


RETURN; 

END; 


IS FOR 
•LITERAL' 
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/« 6 LONG BIT STRING +•/ 

DO; 

TOKEN=STRING; 

LH = RH; f^lO/23^/ 

CONVERT TO IBM CHARACTERS 
DO I = 0 TO LENGTH(BCD) - 1; 

J = BYTE(BCD); /*10/-- 

BCD = SUBSTR(BCD,1) 

END; /=^'10/18*/ 

RETURN; 

END; 

/* 7 NOT USED 
RETURN; 

/* 8 WORD BIT STRING 
DO; 

TOKEN=MUMBER; /*9/14*/ 

/* NO DESCRIPTOR «/ 

RETURN; 

END; 

/* 9 DECLAR£ */ 

DO; 

INDEC=TRUE; 

RETURN; 

END; /^9/Z9*/ 

/* 10 EXTERNAL */ 

DO; 

XPROC = TRUE; 

RETURN; 

END; 


^ / 

/=»= 10/18’!'/ 


1? SU3STR(CICC»J»1); /’i'10/19*/ 


/^ 

RET 


urn; 


END */ 


12 EOF 
RETURN; 

/’!' 13 LITERAL 

return; 


/* 9 / 29 ^/ 


14 DO */ 

DO; 


/^ll/? DN^^'/ 





-K- 

vj- 





* 

LU 

UJ 

Z) 

^21 

cc 

4f HH 


t/^K 


LU 

II ^ 

(>^LL 

a: 

<o 

OID ••* 

a 

qko 


2UJZ 

hhDCLU 

END; / 
END; / 
SCAN; 


Q 


LU 






00 


entry: /'I'SYMBCL TABLE ENTRY PROCEDURE*/ 
PROCEDURE(A»B,C,D,DL) BIT(HW); 
DECLARE A CHARACTER, 

DL BIT(HW), 

(BtD) BIT(BS), 

(C,E) BIT(l); 

CALL UCC(18); 


• 1 IDLII•:•I ICSTS; 


IF CSTS^MSTS^THEN^DO^^^^^ LOST .. . STOFLO* , 0) ; 

ELSE DO; 

c — T R H F * 

CALL ERROR!'SYMBOL TABLE OVERFLOW,1); 

END; 

END; 

ELSE E=FALSE; 

CALL CSTE(CSTS,0,NEWSTRING(A,0)) ; 

CALL CSTE(CSTS,11,0); 

CALL CSTE(CSTS,1,B); 

CALL CSTE(CSTS,7,C); 

CALL CSTE(CSTSt2,CLEV); 

CALL CSTE{CSTS,8,DL); 

IF -.E THEN CSTS=CSTS+l; 

IF CSTS>MCSTS THEN MCSTS=CSTS; 

RETURN {CSTS-1) 

END ENTRY; 


/*11/1P*/ 
/■-Ml/ 18 */ 
/♦ 11 / 18 */ 
/*11/18*/ 
/*11/18*/ 
/*11/18*/ 
/* 11 / 18 */ 
/* 11 / 18 */ 
/* 11 / 18 */ 
/^ 11 / 18 */ 
/'* 11 / 18 */ 
/*11/18*/ 
/*11/18--^/ 
/*11/1P*/ 
/*11/18*/ 
/vll/ 18 */ 
/'* 11 / 18 */ 
/Ml/18*/ 
/ Ml/IR*/ 
/-*11/18*/ 
/* 11 / 18 */ 
/*11/18*/ 
/* 11 / 18 */ 
/* 11 / 18 */ 
/* 11 / 18 */ 
/* 11 / 18 */ 
/* 11 / 18 */ 


INITIALIZATION 


*/ 


initialization: 

PROCEDURE; 

EJECT_PAGE; 

DOUBLE_SPACE; 

DOUBLE_SPACE; 

/* initialize code emission VARIABLES */ 

CONTROL(BYTE(•D' ) ) = TRUE; 

UDI=FALSE; 

INDO=FALSE; 


/-*ll/22*/ 


/*ll/3*/ 


/* INITIALIZE COMPILER VARIABLES */ 
R£ADING_LIBRARY = TRUE ; 





vD 


DO I 


= 0 TO STIMX; 
STIE(I) = i+i; 
END; /*10/29*/ 


7*10/29*/ 

/*10/29*/ 


/* INITIALIZE MASTER LIST */ 

DO I = 1 TO mmll; 

ML(I) = i+i; 

ML{of=SHL(MMLL+lf18)|(MMLL+1); /*ll/3*/ 

/* INITIALIZE NUMERIC CONSTANT CONTROL VARIABLES */ 
CNB=MMLL+1; 


/*ll/3*/ 

/*ll/3*/ 

/*ll/3*/ 


/* 11 / 21 */ 


/* INITIALIZE TEMPORARY AND REGISTER VARIABLES */ 


FTLB=MMLL+l; /*ll/6*/ 
DO 1=0 TO 23; 

ROOAd )=o; 
end; 


/*ll/23*/ 
/*11/23*/ 
/*ll/23*/ 


HOLD!1); 

H0LD{7); 

H0LD(9); 

H0LD(15); 

/* INITIALIZE REGISTER USER ARRAY BACKUP LIST BASE */ 

DO 1=0 TO 25; 

RUABLII)=MMLL+1; 

END; 

XEBi^LLd;’/SiNlIl ALIZE EXPRESSION LIST BASE*/ /*11/13*/ 

/* INIT CONVERSION TABLE USED BY CONVERT */ 

DO I = 0 TO 255; /*10/18*/ 

ICCCd) = 64; /*10/18*/ 

END; /*10/18*/ 

DO I = 0 TO LENGTH(CICC) ' 15 

ICCCIBYTE(C ICC,I> > = I; /*10/18'V 
END; 7*10/18*/ 


CPNLB=MMLL+l; /*INITIALIZE PROCEDURE NAMELIST BASE*/ 
DO I = 0 TO 73; 

INST_FREQ(I)=0; 

END; 


/*ll/24*/ 

/❖11/24*/ 

/*ll/24*/ 

/*11/26P*/ 


/*ll/7*/ 





/«11/15P="/ 


fO 

o 


DO 1=1 TO 

s=v( I); 
IF s 


NT; 


IF 

IF 

IF 

IF 

IF 


S 

S 

S 

s 


> 1) THEN DO; 


•DECLARE’ THEN DCLT=I; ELSE 
•EXTERNAL' THEN XTRNT=I; ELSE 
•END' THEN ENDT=I; ELSE 
•DO’ THEN DOT=I; ELSE 
•LITERALLY' THEN LITT=I; 

(BYTeU) = BYTE(*<')) & (LENGTH(S) 

J=LENGTH(S)-2; 

S=SUBSTR(SiliJ); 

END; 

j=length( s); 

/‘9/24./ 

STRING=I; 

NUMBeR=I; 

PARAM=I; 

ID£NT=I; 

PSEUDO=I; 

F WAMr= T: 


= S THEN DO; /*9/Z2*/ 


DLAB-I; 

PNAME=I; 

ULAB=I; 

BSN=I; 

CSN=I; 

• FAN=I; 

BAN=I; 

C.AN=I ; 

K=STLL-l; /^9/26*/ 

END; 

L=L+STX(K); /^9/Z2^/ 

K=K+1; 

END; 

END; /^9/15*/ 

RESERVED_LIMIT = LENGTH!VINT)); 7-9/22*/ 


STOPIT(EOFILE)=TRUE; 
DO I = 0 TO 255; 
CHARTYPEII)=0; 
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DO 


DO 


DO 


END; 

CHARTYPE(BYiE(*ABCDEFGHIJKLMNOPQRSTUVWXYZ' ,1))=4; /*ll/8*/ 

end; 


/=i'll/8*/ 


CHARTYPE(3^'Te'(Ui23456789' ,I ))=5; 

END; 

I = 0 TO LENGTH{ SPECIALS) '■ 1; 

J = BYTE(SPECIALS,I); 

SCTOK(I) = 0^ crr-T/n- 

^”inYTE(V(Kil!°= J°TJlirSCTOK(lT ='k; /xc9/26V 
end; 


Tc I - RYTFJ*/') THEN divide = SCTOK(I); 

TF i = byte(’»* ) then COMMA_TOKEN=SCTOK( I) 

IF J = BYTE ’!•) then DO; 

PERIOD TOKEN = SCTOK(I); 

STOPIT“(PERIOD_TOKEN) = TRUE; 

END; /*9/22-/ 

END; 

STOPIT (COMMA_TOKEN) = TSVn 
CALL CSTE( 0,1, IDENT ) ; /'^10/30-/ 

DO I = 0 TO MSTS; /* SYMBOL TABLE INITIALIZATION */ 
CAM CSTE(I»2tO); /*10/30^/ 

CALL CSTE(If Ilf 0) ; /«10/30*/ 

END; /*9/23*/ 


ELSE 

ELSE /*ll/8*/ 


INDEC,XPROCfUDIfINGO=FALSE; /^ 9 / 22 ^/ 


/■if LOAD INTRINSICS HERE */ 


TORW=CSTS-l; , 

global variables controlling scan, then call I 

CP = 0; TEXT_LIMlt - -i; 

T FYT = • ’ ? 

CONTROL(BYTE('L*) ) = TRUE; / 

LXP=MMLL+l; 


T */ 

« 11 / 19 ’(^/ 
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EMIT BUILT-IN CODE */ 


CALL SCAN; 


/* initialize the parse 

$p 5= I; P ARSE_STACK ( SP ) 


STACK */ 

= eofile; 


END INITIALIZATION; 


GENSTACKDUMP: DN*/ 

PROCEDURE (START,HEAD) 

declare jliST*SEiD?‘ciiRitTERi /<.9/27 UP«/ 

IF LENGTH(LINE) > 105 THEN 

““‘output = line; 

END; 


LINE = LINE 

END; . TKn 

OUTPUT = LINE; 
END GENSTACKDUMP; 


11 XI II V(PARSE_STACK(I)); 
/=!'9/27*/ 
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THE SYNTHESIS ALGORITHM FOR XP-L 




*/ 


7*9/28*/ 


PROCEDURE ( PRODUCT ION_NUMBER 
DECLARE ( production NUMBER,PRD) FIXED, 

DECLARE SVAL CHARACTER, /-9/14 DN*/ 

(N\/AL,WORK) FIXED, 

(STP,C,L) BIT(16), 

T BIT(8), 7*9/17*/ 

IW BIT(16), 

ABW B IT(8 ) , 

SABW BIT(8) . 

XRN BIT(HW), 

CSOD BIT!1 ) , 

SFW BIT(32), 

PADRS^ BItIcAS ) , ^* / 

(PLHW,PRHW) BIT(LCI), /*10/16*/ 

(SpPiIspMi!mPM 1)°FIXED, /*STACK POINTERS */ 
ISSl BIT(l); 7*11/13*/ 


/*9/17*/ 
/*9/17*/ 
/*9/17*/ 
/*11/14*/ 
/* 11 / 1 */ 
/* 9/17*/ 


/*ll/18*/ 


MPPl=MP+l; 
SPMi=SP-i; 
MPMl=MP-i;, 

SVAL = VARIMP); 
NVAL = FIXV(MP) 
WORK = FIXL(MP); 
STP = STL(MP); 
REG = RBU(MP); 
CSOD = SOD(MP); 
c = WSKMP ); 

L = WS2(MP); 

ABW = EBW(MP).; , 
PADRS = ADRS(MP) 
PLHW = LHW(MP); 
PRHVI = RHW( MP) ; 
POT = OTYPE(MP); 


/*11/1 DN*/ 


/*1 

/*1 

/*1 


1/18*/ 

1 / 18 */ 

1/18*/ 


/*11/1 UP*/ 





XRN=HWW(MP); 
SFW=FWW(MP); 




CALL UCC(20); /<'10/29*/ 

T=6; /*9/17*/ 

IF CQNTROLIBYTEI ' P' )) THEN 

S='PROD°( 1 1 production NUMBER 1 
S = S 11 VIHDTBIPRD) ) ; /^9/28-'-/ 

c— c ll I IS— ** 

CALL GENSTACKDUMPCMPfS); 

END; /* 9/26 UP=«'/ 

DO CASE PRGDUCTION_NUMBER ; 

; /* NULL STMT */ 

/* (1) <PRGGRAM> ::= <STATEMENT LIST> 
DO; /*10/3*/ 


/=«‘ll/23*/ 


I •) 


I • 




N> 


COMPILING = FALSE; 7*10/3’*'/ 


CALL EQW(0,lt0); 

/* STORAGE OF STARTING ADDRESS REQUIRED YET 2 I THINK’*'/ 


END; /*10/3’i'/ 

/* (2) <PROGRAM> ;:= EXTERNAL <XPC> <PPOCEDUPE DEFINITI0N> 
/*’l3) <XPC> <COLON> ’*'/ 

DO; /*10/31*/ 
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XPROC= TRUE; 


END; /*10/31*/ 

/* (4) <STATEMENT LIST> : <STATEMENT> 

*/ 

/* (5) <STATEMENT LIST> ::= <STATEMENT LIST> 
• 

<statement> 

♦ 

(6) <STATEMENT> ::= <BASIC STATEMENT> 

do; /*ii/13 dn*/ 

*/ 


F0REVER_INDICAT0R=FALSE; 

END; /#11/13 UP*/ 

/A (7) <STATEMENT> <IF STATEMENT> 

DO; /*11/13 DN*/ 

FOREVER.INDICATOR-FALSE; /*11/13*/ 


end; /*ii/13 up*/ 

/* (8) <BASIC STATEMENT> 

do; 


<ASSIGNMENT> <semicolon> 


CALL DX(XRN); 


END; 

/« (<?) <BASIC STATEMENT> 


<GROUP> <SEMICOLON> 


/*ll/20*/ 

/*ll/20*/ 


/*ll/20*/ 
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i 


/* (10) <BASIC STATEMENT> :<PROCEDURE DEFINITICN> <SEMIC0L0N> 

\ 

(11) <BASIC STATEMENT> <CALL STATEMENT> <SEMIC0L0N> =«'/ 

A-ri-MTMX'x yrn Tn qtatfmfN!T'> <r FM I CnLON> ^'/ 


/* ^ 

(10) 

/* 

(11) 

/* 

(12) 

/* 

(13) 

/* 

(14) 

/* 

(15) 

/* 

(16) 

/* 

(17) 

00 







/*ll/3 ON*/ 


W0RK=C0RG(WCRK); 
EMITC(4 ,0,0,WORK,1); 
W0RK=C0RG(WCRK)-1; 


/*11/18*/ 

/=;-ll/18’-/ 

/vll/ 18 =:^/ 


END; 

/* (18) <IF STATEMENT> 
DO; 


:= <IF CLAUSE> <TRUE PART> <STATEMENT> 


/*ll/3 UP*/ 
*/ 

/*ll/3 ON*/ 


FIXL(MPPl)=CORG(FIXL(MPPn) ; 
EMITC(4,0,0,FIXL(MPP1),1); , 

FIXL(MPP1 =C0RG(FIXL(MPP1))-1; 


/*11/18*/ 
/=:=ii/ie*/ 
/. 11 / 18 '-V 


END; 

/* (19) <IF STATEMENT> 


:= <LABEL DEFINITION> <IF STATEMENT> 


/*ll/3 UP*/ 


*/ 






/♦ (20) <IF CLAUSE> 
DO; 


IF <EXPRESSION> THEN 


/*ll/3 DN'f'/ 


«/ 


XRN=HWW{MPP1); 
REG=LX(XRN,5); 

HOLD(REG); 
NVAL=AX(3»0,0); 

ABW=LX(NVAL,5); 
RELEASE{REG); 

EMITC{35,ABW,7,3,0); 
EMITCi 13,REG,RcG,AijW,0) 
CALL NEXT_V'nRD^BOUMD; 
EHITC( 3,1,F.EG,J:SK + .^, 1) ; 
CALL DX(XRM); 

CALL DX(NVAL); 
work=next_word_boumd; 

EMITC(4,0,0,0,0) ; 

r.Al L NEXT word_bouno; 


/*ll/19>i^/ 

/*11/26P*/ 

/*ll/19*/ 

/*11/19^/ 

/^^U/19*/ 

/*11/19=:=/ 


END; 

/* (21) <TRUE PART> : *•= <BASIC STATEMENT> ELSE 
DO; 


/=J=ll/3 UP*/ 


/*ll/3 DN*/ 


work=next_woro^bound; 

EMITC{4,0,0,0,0); ... 

FIXL(MP-1)=C0RG(FIXL MP-1))) 
EMITC(4,0,0,FIXL(MP-1),1), 

F ixL (MP-1) =car<G (FI XL (MP-1)) -1; 


/*11/18*/ 

/*11/18*/ 

/»11/18*/ 


END; 

/* (22) <GR0UP> ::= <FOR HEAD> <ENDING> 
/*’(23) <GROUP> :<WHILE HEAD> <ENDING> 

do; 


/*ll/3 UP^V 


/*ll/3 ON*/ 
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¥ 


EMITCt 4 ,OtO,NVAL f1); 

IF WORK -= 0 THEN DO; 
WORK=CORG(WORK); 
EMITC14 tO f0 ,WORKt1)J 
WOKK=CORG(WORK)'-l; 
END; 


7=1^11/18*/ 

7 =^ 11 / 18 = 5^7 

/=*11/18*/ 

7x11/18=5'/ 

/=<-'ll/18=»'7 


/xil/3 UP=!'/ 

END; 

/* (24) <GROUP> ::= <CASE HEAD> <ENDING> */ 

DO; 7*11/6 DN*/ 


j,i=nval; 

DO WHILE I <= MMLL; 

K=C0RG( ML (I ) 8'’3FFFF” ) ; 

EMITC(4,0,0,K, 1 ); 

CALL CORGIK); ^ ^ 

I=SHR(ML(I),18); 

CALL RMLE(J); 

J=i; 

_END;_ 

°° '^KiGDE{o^ML?l')L’'3FFFF",l) ; 
I = SHR(ML(I),18) ; 

CALL RMLE(J); 

J = I ; 

END; 

I = CORG(PADRb) ; 
EMITC(49,ABW,0,K,2), 

CALL CORG(I); 


/=5'11/18=5'/ 
7=5'! 1/18=5'/ 
/=5'11/18=5'/ 


END; /*ll/6 UP*/ 

7* (25) <GROUP> ::= <00 HEAD> <ENDING> */ 

/* (26) <FOR HEAD> ::= <FOR> <D0 VARIABLE> <REPLACE> <FOR EXPRESSION>J/ 

do; 





/*ll/26’«'*/ 


CALL TX(HWW(SP)tHWWlMPPl)) 
CALL DX{HWW(SP)); 


END; 

/♦ (27) <FOR HEAD> <FOR HEAD> <STATEMENT> */ 

/.’(28I <WHILE HEAD> t:- <00 WHILE> <EXPRESSI0N> <SEMICOLON> 
DO; 






/«ll/3 DN*/ 


Cv; 

vO 


IF FOREVER INDICATOR THEN DOt 
FOREVER_TNOICATOR=FALSE; 
NVAL=NEXT_W0RD_B0UND; 
W0RK=0; 

ELSE^DO; /*11/13 UPy 
HWW(SP)=AX(3»ItO), 
RBU(SP)=LX{HWW(SP),5); 

REG=LX(HWW(MPPl)t5); 

iBU(SP).o.; 
CALL DX(HWW(SP));,^ 

REG=LX(HWW{MP PI>» 6); 

CALL NEXT.WORD BOUND; 

EMITCI5fO»REG»^SK+ltl)» 
WORK=NEXT_WORD BOUND; 
EMITC(4,0,0,0,n); 

END; /*11/13*/ 

CALL NEXT_WORD_BOyNO; 

CALL DX(HWW(MPP1)) ; 


/*11/13 ON*/ 


/*lL/27*/ 


/*ll/27*/ 
/*ll/27*/ 
/*ll/27*/ 
/^'11/27*/ 
/❖11/27*/ 
/*ll/27*/ 
/*ll/27*/ 
/*ll/27*/ 

/*ll/27*/ 


/*ll/27*/ 


/*ll/3 UP*/ 

END; 

/* (29) <WHILE HEAO> <WHILE HEAD> <STATEMENT> */ 

/.’(30I <C4SE HEAO> :== <00 CASE> <CASE EXPPESSION> <SE«ICOLON> »/ 
do; /*ll/6 DN*/ 
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ABW=LX(HWW(MPP1)t6); 

CALL DX(HWW(MPPli); ^ 

PADRS=NEXT_WCPD BOUND; /*ll/7*/ o 
EMITC(49,0,0t0,^); /*ll/7*/ 

nval=mmll+i; 

MLfwORK)=^HL(MMLL+l,18)|NEXT_W0RD_B0UND; 




END; /*ll/6 UP*/ 
/* (31) <CASE HEAD> 

do; /*ii/6 dn*/ 


:= <CASE HEAD> <STATEMENT> 


*/ 


IW=NVAL; 

NVAL=NMLE; 

ML(NVAL ) = SHL(IW,18)INEXT WORDBOUND; 

EMITCt 4»0,0 »ML ( IW ) C'’3FFFF"» 1 ) ; 

IW=WORK; /*ll/9*/ 

ML(WORK) = JHLtlWa8)lNEXT_WORD_EOUND; /*ll/9*/ 


END; /*ll/6 UP*/ 



(32) 

<DO HEAD> 


(33) 

<DO HEAD> 


(34) 

<ENDING> : 


(35) 

<ENDING> : 

/* 

( 36) 

<ENDING> : 


*/ 


*/ 


/* (37) <FOR EXPRESSION> : 

<SEMICOLON> */ 

DO; /* 11/5P3 DN*/ 


*/ 

•ROCEDURE NAME> */ 

DEFINITICN> <ENDING> */ 

;= <INITIAL EXPRESSICN> <ITERATI0N CONTROL> 
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FIXL(MPP1)=C0RG(F1XL(MPPl) ) ; 

EMITC(4,0,0,FIXL(MPP1),1); , 

FIXL( MPPl )=C0RC7(F I XU MPPl) ) -1; 

00 00 00 


END; /*11/5P3 UP*/ 


/* (38) <ITERATI0N C0NTR0L> <T0> <T0 EXPRESSI0N> */ 


o 

o 

/*ll/3 DN*/ 

CALL DX(HWW(SP) ) ; 

/*ll/26**/ 

END; 

/*ll/3 UP*/ 

/* (39) <ITERATI0N C0NTR0L> ::= <T0> <TQ EXPRESSI0N> <BY> <BY 
DO;. 

EXPRESSION> «/ 

/*ll/3 ON*/ 

CALL DX(HWW(MPP1)); 

CALL DX(HWW<SP)); 

/*ll/26**/ 

/All/26**/ 

END; 

/* (40) <D0 WHILE> ::= DQ WHILE */ 

DO; 

/*ll/3 UP*/ 

/*ll/3 DN-/ 


NVAL=NEXT_WORD_BOUNn 





% 


/*ll/3 UP*/ 

END; 

/♦ (41) <PROCEDURE DEFINITION> ::= <PROCEDURE SPECIFICATION> <ENDING> */ 

00 ; 


OJ 

PO 


/*ll/7*/ 

> CLEV) & (CSTS >1); /*11/10*/ 


J=CSTS; /#ll/9*/ 
i=cpnlb; /*ii/7*/ 

CPNLB=SHR(ML(CPNLB),18); 

CALL RMLElI); /*ll/7*/ 

D0^v!hILe'^(GSTE(CSTS-1,2) 

S=GiTsfRINMGSTE(CSTS,on| /»U/7»/ 

IF GSTE(CSTS,1) = LITT THEN /'‘10/30 ON*/ 

^'^CALL DELETESTRING(GSTE(CSTS,6) ); 

CALL DELETESTRING(GSTE(CSTS,0)) ? . 

/❖DELETE^EXPRESSIONS^FOR^PRCCEDURE RESULTS & PARAMETERS */ 
/JwHEN NoPaTTACHED TO THE CURRENT PROCEDURE*/ 

IF GSTE(CSTS,1)=PNAME THEN do; 

CALL RELT(GSTE(CSTS,15)); 

DO WHILE GSTE(CSTS,16) <= MMLL; 

K=GSTE(CSTS,16); 

CALL CSTE(CSTS,16,MS(K)); 

CALL RMLE(K); 

END; 

END; 

CALL CSTE(CSTS,1,0); 

CALL CSTE(CSTS,11,15); 

ELsI^DO; /*ll/7 DN*/ 

'cstI(CSTs,o,newstring(s,o)); 

CSTE(CSTS,2,CLEV); 

CSTEICSTS,14,0); 

/*ll/7 UP*/ 

/*ll/9*/ 

DO WHILE (GSTE(CSTS,2) <= 

CSTS=CSTS+l; /*ll/9-/ 
end; /*11/9*/ 

I=CORG(NVAL); /*ll/2*/ 

EMITC(4,0,0,I,1);, . /*ll/2*/ 

CALL CORGd ); /*ll/2*/ 


CALL 

CALL 

CALL 

end; 

end; 

WHILE 


/* 11 / 10 */ 


CLEV) 6 (CSTS < J); /*ll/9*/ 


/*ll/25*/ 


/*ll/25*/ 

^*11/25*/ 

^*11/25*/ 

^*11/25*/ 

/*ll/25*/ 

/«ll/25*/ 

/*ll/25*/ 

/*ll/25*/ 
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/* (421 <PROCEDURe SPECIFICATION> <PROCEDURE HEAD> <STATEHENT> */ 

(43) <PRCCEDURE SPECIFICAT!ON> =:= <PROCEDURE SPEC IFIC AT 10N> <STATEME).T> ./ 

/« (44) <PPOCEDURE HEAD> ::= <PROCNAME SPEO <SEMICOLON> =*'/ 

DO; /^9/19 DN’5'/ 


CALL 

CALL 

CALL 


CSTE{STPt3,FNAME); /*10/30^/ 

CSTE(STP,4,0) ; 

CSTE( STPt6tDFL ) ; /=!'10/30*/ 


END; /^9/19 [)P^/ 


/* (45) <PROCEDURE HEAD> 
DO; /*9/19 DN’!'/ 


<PROCNAME SPEO <TYPE> <SEMICOLON> 


CALL 

CALL 

CALL 


CSTE(STP,3,RBU(MPP1)j ? 
CSTE(^TP»6»WSZ(MPP1)); 

CSTEisTPUlwSKMPPD); 


/♦10/30'-/ 

/*10/30*/ 

/^10/30*/ 


END; /*9/19 UP*/ 

/* (46) <PROCEDURE HEAD> 
DO; /*9/19 DN*/ 


;:= <PROC PARAM SPEO 


<SEMICOLON> 


*/ 


CALL 
CALL 
CALL 
CALL 
CALL 
DO 


CSTE(STP,3»FNAME); /*10/30 DN*/ 

CSTE(STP,4,0) ; 

CSTE(STP,5,0); /*11/13*/ 

CSTE(STP,6,DFL); 

_ CSTE(NVBD,'5»0) ; _ qcmprc,^ 

'^CALL CSTE(GSTE(NVBD,8)j9,NVBD); /* 


ORDER OF 
AND LINK 


PARAMETERS*/ 
TO PROC NAME 


*/ 


/*ll/25*/ 
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NVBD = GSTE(NVBD,8); 
CALL^CSTE(STP,9,NVBD»; /*10/30 UP*/ 


END; /*9/19 UP*/ 


/* (47) <PROCEDURE HEAD> ::= <PROC PARAM SPEO ) <TYPE> <SEMICOLGN> -/ 
DO; /*9/19 DN*/ 


CALL 
CALL 
CALL 
CALL 
DO 


/*10/30 ON*/ 


CSTE(STP»3»RBU(SPM1)) 
CSTE(STpU»WSl(SPMini 
CSTE(STP,6,WS2(SPM1)); 
CSTE(NVBDt9,0); 

WHILE GSTE(NVBD,8) -=0; 

CALL CSTE(GSTEtNVBDtS)»9tNVBD), 
NVBD = GSTECNVBD,8); 

END; 

CALL CSTE(STP,9,NVED) 


/*10/30 UP*/ 


/*ll/25*/ 


END; /*9/19*/ 

/* (48) <PR0CNAME SPEO 
DO; 


<IDENTIFIER> <C0L0N> PROCEDURE 


STP=ENTRY(SVA 
NVBD=0; /*9/l 
CALL CSTE(STP 
CALL CSTE(STP 
CALL CSTE(STP 
CALL CSTE(STP 
NVAL=NEXT_WOR 
EMITC(4,0,0,0 
CALL CSTE(STP 
CALL CSTE(STP 
EMITC(46,0,0, 
CALL NEXT_W0R 
inproc=tkue; 

CLEV=CLEV+l; 

i=cpnlb; /*11 


L, PNAME,0,0,0); /*9/19*/ 

9 4= / 

,9,0); /*10/30*/ 

!i5?NI^T); /*ESTABL1SH VBL 
,16,MMLL+1); /*SET UP REF 
D bound; /*11/2*/ 

,U); /*ii/2*/ , , , 

,13,NEXT WORD_BDUND); /*1 
,12,0); 7*11/2*/ 

0,0); /*il/2*/ 

D BOUND; /*ll/2*/ 

/*9/17*/ 

/=!=9/18*/ 

/7*/ 


FOR RESULT* 
ERENCE LIST 


BASE*/ 


1 / 2 */ 


/*ll/25*/ 

/*ll/25*/ 
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/★11/25*/ 


ML('cPNLB)=^HL(ian(GSTE(STP,0); 
M<;( r.PNLB) = STP; 




END; 

/# (49) <PROC PARAM SPEO <PROCNAME SPEO ( 




/# (50) <PR0C PARAM SPEO ::= <PR0C PARAM SPEO <IDENTIFIER> 
DO; /*10/31*/ 




NVBD = ENTRY(VAR(SP)fPARAM,1,0,NVBD); /^9/19*/ 

OLL CSTE(NVB0,14,1); 

CALL CSTE(NVBD,15,NNT); 


/«ll/25*/ 


END; /=!'10/314'/ 

(51) <PR0C PARAM SPEO <PR0C PARAM SPEO y 

/*’(52) <RETURN STATEMENT> ::= RETURN 
DO; /^9/19 DN#/ 

CALL GENRETURN(REG); 


END; /*9/19 UP#/ 

/# (53) <RETURN STATEMENT> 
DO; /#9/19 DN#/ 


RETURN <EXPRESSI0N> 


I=MS(CPNLB); 

I=GSTE( Itl5); 

NVAL=AX(0,I»2 M . 

CALL TX(HVilW(MPPl) yNVAL) , 
CALL DX(HWW(MPP1)); ^^, 
CALL GENRETURN(REG); 


/❖11/27#/ 
/#ll/27 
/#ll/27 
/tll/27=^/ 
/*ll/27#/ 
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END; /^9/l9 UP«/ 


(54) <CALL STATEMENT> ::= CALL <PROCEDURE NAME> =«'/ 

DO; 

/*ll/25>!'/ 

CALL DX(HWW(SP)); 

/*ll/25«/ 

END; 

(55) <CALL STATEMENT> ::= CALL <PSEUDONA^E> -/ 

DO; 

/*ll/25*/ 

CALL DX(HWW(SP) ); 


END; 

(56) <CALL STATEViENT> : := CALL <PROCEDURAL> 

DO; 

/*11/25>!V 

/*ll/25^/ 

CALL DX(HWW(SP) ); 

/'-11/25^/ 

END; 

/« (57) <CALL STATEMENT> ::= CALL <PSEODGCALL> 

DO; 

/=Ml/25’f‘/ 

/-11/25=:'/ 

CALL DX(HWW(SP) ) *, 

/♦11/25*/ 

END; 

/* 11/2 5=:'-/ 
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/* (58) <PROCEDURAL> ::= <PROCEDURE NAME> <ARGUMENT LIST> 
DO; 


/’i'lL/26*/ 


XRN=AX(0,GSTE(STP,15),2); 
I=FWW(SPMl); 

DO WHILE I <=MMLL; 

CALL DX(MS(I)); 

J=ML(I); 

CALL RMLE( I ) *, 

i = J; 

end; 


/^i'ADD RSLT EXP«/ 


/*11/2 6P’!"/ 
/^m/2b^/ 
/■^~\\/2b^/ 
/=t^ll/ 26 -/ 
/■-ni/2 6-/ 

/*11/26*/ 


END; 

/* (59) <PSEUDOCALL> :;= <PS£UDONAME> <ARGLIMENT LIST> 
DO; 


/*ll/26*/ 


^ / 

/*ll/26*/ 


XRN=AX(0,GSTE( STP, 15),2) 


I=FWW(SPMl); 

DO WHILE I <=MMLL; 
CALL DX(MS{I)); 
J=ML(I); 

CALL RMLE(I); 


I = J; 
end; 


/*ADD RESULT J ^^/ 

/*!1/26*/ 
/* Ll/26*/ 
/*11/26*/ 
/*ll/26*/ 
/*ll/26*/ 
/*ll/ 26 */ 


/*ll/26*/ 

END; 

/* (60) <ARGUMENT LIST> : := ( */ /*ll/25*/ 

DO; 


SFW=MMLL+1 


/*ll/25*/ 


/-:-ll/25*/ 


END; 
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(61) 

<ARGUMENT 

LIST> 

: ;= <PAX> */ 




t 

(62) 

<ARGUMENT 

LIST> 

: ;= <ARGUMENT 

LIST> 

, */ 


9 

/* 

DO; 

(63) 

<ARGUMENT 

LIST> 

:;= <ARGUMENT 

LIST> 

<ALCOMMA> <ARGL)MENT 

EXPRESSION> 

/*ll/25*/ 


I=SFW; 

SFW=NMLE; 

ML(SFW)=I; 

MS(SFW)=HWW(SP) 


/*ll/25*/ 

/«ll/25^/ 

/*ll/25*/ 

/*1L/26P*/ 


end; 

/* (64) <ALCOMMA> ::= » */ 

» 

/* (65) <DECLARATION STATEMENT> 
DO; /*10/31*/ 




<DECLR> <DECLARATION ELEMENT> v/ 


IDLI=TRUE; /=!‘9/14*/ 


END; /* 10/31*/ 


/* 

DO; 


(66) <DECLARATION STATEMENT> • 
<DECLARATION ELEMEMT> '-/ 

/*10/31*/ 


<DECLARATION STATEMENT> » 


IDLI=TRUE; /*9/14*/ 


END; /*10/31*/ 

/« (67) <DECLARATION ELEMENT> <TYPE DECLARATION> 

DO; 


*/ 





IF REG=FAN 1 (REG = BAN{1L<=60) THEN 1-2, ELSE 

1 = 3; 

IW=STP; 

DO WHILE IW -•= o; 

WORD OPERAND*/ EMITD(0»0); 


/*l:BIT- OR CHAR- STRING*/ 

DO WHILE D_C0UNT/4 < GSTE(1W,13); 
EMITD(0,0); 

END; 

EMITD(0,L); 

END; 


/*2: WORD ARRAY*/ 

DO WHILE D_COUNT/4 < GSTE(IW,13); 
EMITD{0,0); 

END; 

EMITD( 1,0 ; 

END; 

/*BIT- OR CHAR- STRING ARRAY*/ 

N=GSTE(IH,13)-DASK-1; /*ii/iap*/ 

c=c+i; 

n=m/C; 

DO^WHILE (DASK+1 ) < GSTEIIW,13); > 

DO J=2 TO N; /*11/13*/ 
EMITD(0,0); 

END; /*DQ*/ 

EMITD{0,L); 

END; /*WHILE*/ 

EMITDlNtC); /*11/13*/ 
end; /* CASE*/ 
end; /*CAStS*/ 

IW=GSTE(IW,8); 

END; /*WHILE*/ 


*11/14*/ 
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/♦ll/lB’t'/ 


IF ISSl THEN GO TO L2; 
END; /*-.SPACEA*/ 

SPACEA = FALSE; UP^/ 


/^IN PRODUCTION 86=!=/ 


/* WILL NOT yet HANDLE INITIAL VALUES -/ 
END; 


(68) <DECLARATION ELEMENT> 
5 

(69) <DECLARATIUN ELEMENT> 
<STRING> */ 

DO ; 


<LABEL DECLARATION> */ 

<IDENTIFIER SPECIFI CAT I0N> <LITERALLY> 


CALL CSTE(STP,1,LITT); /*10/30 DN*/ ^ 

CALL CSTE(STP,6,NEWSTRING(VAR(SP),0)); 

IW = GSTE(STP,8); 

DO WHILE IW -=,p; , . . 

CALL CSTeIIwI6!gSTE(STPt 6)); /*11/13*/ 
IW = GSTE ( IWt B) 

END; /=!=10/30 UP’!'/ 


/«11/13*/ 


E>1D; 

/’!= ( 70 ) <LABEL DECLAkATI0N> : := <IDENTIFIER S PECI FICAT iaN> LABEL 
DO; 


'/ 


CALL 
CALL 
CALL 
IW = 
DO 


CSTE(STP,1 ,ULAB) ; /’!'10/30 pN=^/ 

CSTE(STP,13tMMLL + l) ; /*ll/3 •/ 
CSTE(STP, 12,0) ; /=f=ll/3=!'/ 

= GSTE(STP,8); 

WHILE IV^ -'= o; . ^ 

CALL CSTE( IW, 1,ULAB) ; 

CALL CSTE(IW,13,MMLL+1) /-ll/^-/ 

CALL CSTE (IW, 12,0); /=;ll/3’=/ 

IW = GSTE(IW,8); /vlO/30 UP"/ 

end; 
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END; /*9/17 UP’^/ 

/* (71) <TYPE OECLARATION> <IDENTIFIER SPECIFICAT10N> 

DO; 


REG=RBU(SP); /*9/17=»'/ 

L=WS2(SP); /»g/i7''^/ 

c=0; /=i' 9 / 18 ^/ 

CALL CSTE(STP,1,REG); /*ll/2 DN^/ 

CALL CSTE(STP,4,C); 

CALL CSTE{STP,6,L); 

CALL CSTE{STP,12,1); 

I=DASK; /=I'11/14''!'/ 

IF^ { { REG = 35N) & L <= 60) I (REG = FNAME ) _ THEN__J= 1; 


IF REG = BSN THEN J = ((L + 59) 
IF REG = CSN THEN J = ((L + 9) 

I = I + J; 

CALL CSTE(STP,13,I); 

IW = STP; 

DO WHILE GSTE ( IW, 8) -^= 0; 

IW = GSTE(IW,8); 

CALL CSTEIIW,ItREG); 

CALL CSTE(IW,4,C); 

CALL CSTE(IW,6,L); 

I = I + J; 

CALL CSTE I IW,13,1); 

CALL CSTE(IW,12,1); 

END; /=i=ll/2 UP-/ 


/ 60) 
/ 10 ) 


i; 

l; 


ELSE 


END; 

/* (72) <TYPE DECLARATION> ::= <INITIAL HEAD> <RPIH> 
DO; /^ll/S DN*/ 


<TYPE> ■'! 


ELSE 


/ 


SPACEA=TRUE; 
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END; /=«'ll/5 UP*/ 

/* (73) <TYPE OECLARATION> ::= <BOUND HEAD> <TYPE> 
DO; 


REG=RBU(SP); /*9/iey 
I=DASK;‘/*U/2'^DN*^/*11/14*/ 

IF^REG = CSN THEN DO; 

J=(7( (L+9)/10 )+l)*(C+1)) + l; 

ELSE^If’rEG = BSN THEN DO; 

Rp=BAN,6o j = C + 2; 

ELSE J = (((L+59)/60)+1)*(C+l)+l; 

ELSE^If’rEG = FNAME THEN DO; 

REG = FAN; 

J = c+2; 

END; 

CALL^CSTE(STP,1,REG); 

CALL CSTE(STPtl2»l 
CALL CSTE(STP,p,I); 

CALL CSTE(STP,4,C ; 

CALL CSTE(STPt6,L); 

IW = ST P♦ 

DO WHILE GSTEdWtB) -•= 0; 

GSTEdW.B); 

CSTElIW,1,REG); 

CSTEdW,4,C) ; 

CSTE(IW,6,L); 

CSTEdW,12,l); 

I + J; 


IW = 

CALL 

CALL 

CALL 

CALL 

I = 

CALL 

END; 


CSTE(IW,13,I); 
/*ll/2 UP*/ 


END; 

/# (74) <RPIH> ::= ) */ 


*/ 
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/* (75) <TYPE> ::= FIXED */ 

DO; 


l=dfl; /*^9/n^/ 

REG = FNAME; /*9/17=^'-/ 


END; 

/* (76) <TYPE> ::= BIT 
DO; 


l=dbl; 

REG=BSN 


/*9/17*/ 

; /=i'9/17*/ 


END; 

/« (77) <TYPE> <BIT HEAO> <NUMBER> ) 

DO; /=«'10/31«/ 

L=F IXV(SP-1); /*9/17*/ 

END; /*lO/3l*/ 

/* (78) <TYPE> ;:= <BIT HEAD> ^ 
do; /«10/31«/ 


L=0; /=i'9/17’!'/ 


END; /*10/31«/ 
(79) <TYPE> ::= 

do; 




CHARACTER 


i 
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l=dsl; 

REG=CSN 


/♦9/17*/ 

; /*9/17*/ 


end; 

/* (80) <TYPE> <CHAR HEAD> <NUMBEfl> > 

DO; /*10/31*/ 

L=FIXV(SP-1 ); /-9/17*/ 

END; /*10/31*/ 

/* (81) <TYPE> ::= <CHAR HEAD> * ) 

DO; /’!=10/31*/ 

L=0; /*9/17*/ 

END; /*10/31=i‘/ 

/+ (82) <TYPE> <EXTERNAL TYPE> */ 

/* (83) <EXTERNAL HEAO> ::= EXTERNAL ( 
DO; /^10/31-/ 

XPROC=FALSE; 

END; /^lO/Bl*/ 

/* (84) <BIT HEAO> BIT ( */ 

DO; /^lO/Sl*/ 


K 
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/A (86) <INITIAL HEAD> ::= <TYPE DECLARATION> <INITIAL> <C0NSTANT1> r-/ 
DO; /*11/13 DN’^/ 

IF -iIDI THEN DO; 

ISS1=TRUE; 

GO TO Ll; /^ALLOCATE STORAGE*/ 

L2: 

ISS1=FALSE; 

END; 

END; /*11/13 UP*/ 

/* (87) CNITIAL HEAD> ::= <INITIAL HEAD> <COMMAl> <C0NSTANT2> */ 

DO; /*11/15*/ 

I = I; /***5!«TEMP0RARY****/ 

END; /*11/15*/ 

/* (88) <C0NSTANT1> ::= <CONSTANT> */ 

DO; /*11/15*/ 

1 = 1; /:«c=!=:!c«TEMPORARY****/ 
end; /*ii/15*/ 

/* (89) <CONSTANT2> ::= <CONSTANT> */ 

DO; /*11/15*/ 

1=1; /****TEMPORARY****/ 


END; /*11/15*/ 





/* (90) <C0MMA1> ::= t */ 

/«’(91) <INITIAL> INITIAL ( */» 

DO; /«10/31*/ 

IDI=TRUE; /*9/19*/ 

END; /#10/31*/ 

/♦ (92) <INITIAL> ::= DEFAULT ( -/ 

DO; /*10/31-/ 

IDI=FALSE; /=f'9/19*/ 

END; 10/31’!'/ 

/* (93) <BOUND HEAD> :J= <IDENTIFIER SPEC IFICATICN> ( 

9 

/♦ (94) <B0UND HEAD> ::= <BOUND HEAD> <NUMBER> ) 

DO; /*10/31’!'/ 

C=F IXV(SP-1); /*9/17-/ 

END; /*10/31*/ 

(95) <BOUND HEAD> <BOUND HEAD> * ) -/ 

DO; /’i'10/31’!'/ 


C=0; /^9/ll*/ 





end; /*10/31*/ 

/« (96) <IDENTIFIER SPECIFICATION> <IDENTIFIER> 

DO; 10/31*/ 

STP=ENTRY(SVAL,IDENTfO»OtO); /*9/17*/ 

END; /*10/31*/ 

/* (97) <IDENTIFIER SPEC IFICAT IQN> ::= <PARAMETER> 
DO; /*10/31*/ 

CALL CSTE(STP,8,0); /*10/30*/ 


END; /*10/31*/ 

/* (98) <IDENTIFIER SPECIF ICATION> :*•= <IDENTIFIER LIST> <LID> ) 
DO; /*10/31*/ 

STP = ENTRY(VAR(SP-1)»IDENTfOtOtSTP); /*9/17*/ 


END; /*10/31*/ 

/* (99) <IDENTIFIER SPECIFICATION> ::= <IDENTIFIER LIST> <LPM> ) 
DO; /*9/17*/ 


CALL CSTE(STL( 
STP=STL(SP-1); 


SPMl) ,8,STP ) ; 
/*9/17*/ 


/*10/30*/ 


*/ 


END; /*9/17*/ 

/* (100) <IDENTIFIER LIST> 


( 





DO; /^10/21*/ 


vD 


STP=0; /*9/n^/ 
end; /*10/31*/ 

/* (101) <IDENTIFIER LIST> ::= <IDENTIFIER LIST> <IDENTIFIER> , 
DO; /*10/31*/ 

STP=ENTRY(VAR(SPM1)»IDENT,0,0,STP); /*9/29*/ 


‘ END; /* 10/31*/ 

/* (102) <IDENTIFIER 
DO; /*9/17*/ 


LIST> ::= <IDENTIFIER LIST> <PARAMETER> t 


*/ 


CALL CSTE(STL(SPM1),8,STP); /*10/30*/ 

STP = STL(SPMl); /*9/29*/ 


END; /*9/17*/ 


/* $L */ 
/* (103) 
DO; 


<G0 TO STATEMENT> 
/*9/17*/ 


:;= <G0 T0> <IDENTIFIER> 


*/ 


STP=ENTRY(VAR(SP)tULAB,0,0,0); /*9/17*/ 

CALL NEXT_W0RD_B0UND; 

CALL CSTE(STP,12,0); 

i=nmle; , ^ 

CALL CSTE(STPtl3tI); 
j=ASK; 

J=J& "3FFFF"; /*ll/4f/ 

ML(I)=SHL(MMLL+1,18)U; /*ll/4-/ 
EMITC{4,0,0,0»1); 


/^ll/3 DN*/ 


/»Ml/3 UP*/ 





CALL NEXT_WORD_BOUNO; /«10/31 UP*/ 


ui 

o 


END; 

/* (104) <G0 TO STATEMENT> ::= <G0 TO <UNDEFINED LA&EL> */ 
DO; /*9/17*/ 


/’i'10/31 


STP=STL(SP); /=!=9/lT'^/ 

CALL NEXT_WCRD_B0UND; 

I=NMLE; ^ . 

J=GSTE(STP,13); 

CALL CSTE(STP,13,I); 

k=ask; ,/*/ 

EMITcti.oi’bUuJ) 6 -BFFFF-.l) 

CALL NEXT^WORdIbOUNDI V=^'10/31 


DN*/ 


UP"/ 


/’i'll/3 ON"/ 


/’i-'ll/B UP’i'/ 


end; /=^9/17=!'/ 

(105) <G0 TO STATEMENT> ::= <G0 TO> <DEFINED LA3EL> */ 

DO; /’>=9/17*/ 


eJiitc(4U^o;gste(stl(sp 
CALL NEXT_W0RD_B0UND; 


,1^)»1+GSTE(STL(SP 

/’i'iO/lB’.--/ 


/’f=9/17*/ 
12)); /*10/30’i'/ 


end; /*9/17’!'/ 

/’(' (106) <G0 T0> ::= GO TO */ 

/# (107) <GO T0> ::= GOTO 

/.’(108) <ASSIGNMENT> <VAR1ABLE> <FEPLACE> <EXPRESSION> 


*/ 





do; /*li/i5^/ 


CALL TX(HWVMSP) »XRI'J) ; 

XRN=HWW(SP); 

END; /*11/15«/ 

/* (109) <ASSIGNMENT> ::= <LEFT PART> <ASSIGNMENT> 
DO; /*ll/15*/ 

CALL TX(HWW(SP)tXRN); 

XRN=HWW(SP); 

END; /*11/15*/ 

/* (110) <LEFT PART> : := <VARIABLE> , "/ 

DO; /*11/15*/ 

; /«N0 ACTION REQUIRED^/ 

o 

END; /’i'll/15*/ 

/* (111) <REPLACE> ::= */ 

DO; /*11/15*/ 

1=1; /#«*=!<TEMP0RARY****/ 

END; /*11/15*/ 

/* dl':;) <L.M''L nEFIN!T!nN> : := . 

DO; /’MO/8*/ 


/*ll/20*/ 

/*ll/20*/ 


/’M 1/20=^/ 
/*ll/20#/ 


/*il/20*/ 


-T.; LC"' 
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n I A 


: 0 T n ^ 


CTn-rMTPV( <;\/\* 

C L' ■' '-TH ( SIP t i 2 , ■ ■ i ; / /- 

CAI I C<TE< STP.1 ^.MFyT_>'nPD_ 


/*q /' -’■'t / 

ROUND); /*l^/30*/ 


END; /*10/8=<‘/ 

/« (113) <LABEL DEF IN III ri;M> 
do; /-lO/Bl'-i^/ 


<L.)NDEFIN£D LAE£L> <culon> 




CALL CSTE(STP,1 ,DLAR); 
CALL NEXT_l.ORri_BGUND; / 
CALL CSTE(STP,12»0); 
I=ASK; 

TW=GSTE(STP,13) ; 

DO WHILu 11' <T 
J = ML(iW) L 

K ^ I ; 

tm=shr{ML(IW)»18); 
CALL RMLE(K); 

CALL CORG(J); 


/--^10/30-/ 
no/31 


END; 

CALL CORG(1); ^ ^, 

CALL CSTE(STP,13,I); 
CALL NEXT_W0RD_B0UND; 


/#11/1*/ 


END; /*10/31*/ 

/* (114) <EXPRESSION> <LaGICAL EXPRESSION> -/ 

/* (115) <EXPRESS10N> : : = <EXPRESST.ON> OR <LOGICAL EXPRESSION> 
DO; /*11/13 DN*/ 


FOREVER I NDIC ATOR=FALSE ; /=!= 11/1 :>''■/ 
REG=LX(XRNt5); 

HOLD(REG); ^ 

CALL DX(XRN); 


/'ll/ j 


/'4=ll/3 UP*/ 


*/ 


/> 11/19*/ 
/•-m/19'/ 
/*11/19*/ 
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XRN=AX(11REG» 0) ; 
abw=lx(hwV;J{SP) ,5); . 

FMITC(10»REGtREG»ABW»0)> 

release(REG); 

CALL DX(HWW(SP)); 

/*11/19*/ 

/*11/19*/ 

/*11/19*/ 

/*ll/19*/ 

/*11/19*/ 

end; /*11/13 up*/ 

!* (116) <LOGICAL EXPF<ESSION> <LOGICAL fACTCR> •/ 

• 

(117) <LOGICAL EXPRESSICN> ;;= <LGGICAL EXPRESS!ON> AND 

<logical factor> */ 

do; /*ii/13 dn*/ 


F0REVER_INDICAT0R=FALSE; /*11/13*/ 

/*11/19*/ 

reg=lx(XRN,5); 
hold(reg); 

CALL DX(XRN); , 

XRN=AX(1»REG,0 )\ 

ABW=LX(HWW(SP)»5); 

EMITC(9,REG,REG,ABW,0); 

RELEASE(REG); ^, 

CALL DX(HWWISP) ) ; 

/*11/19*/ 
/*11/19*/ 
/*11/19*/ 
/*!1/19*/ 
/*11/19*/ 
/*11/19*/ 
/*11/19*/ 

END; /*11/13 UP*/ 

/* (118) <LOGICAL FACTOR> ::= <LOGICAL SECONDARY> */ 

• 

/* (119) <LOGICAL FACT0R> :<LOGICAL FACTOR> XQR <L0GICAL 
DO; /*11/13 DN*/ 

SECUNOAKY> */ 

FOREVER !NDICAT0R=FALSE; /*11/13*/ 

REG=LX(XRN,5); 

HOLD(REG); ^ 

CALL DX(XRN); 

XRN=AX(ltREG,0); ^ 

ABW=LX(HWW(SP)f5), 

EMITC(ll»REG»REGtABW»0)* 

/*11/19#/ 
/*11/19*/ 
/ill/19*/ 
/* 11/19*/ 
/* 11/19*/ 
/rilL/19*/ 
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/♦11/19*/ 


RELEASe(REG); 

CALL DX(HWW(SP)); 


END; /*11/13 UP*/ 

/* (120) <L0GICAL SEC0NDARY> ::= <L0G1CAL PRTMARY> 

/* (121) <L0GICAL SEC0NDARY> NOT <LOGICAL PRIMARY> 

do; /*11/13 DN*/ 


FOREVER_INDICATOR=hALSE 
REG=LX(XRN,5); 

HOLD(REG); 

CALL DX(XRN); 
XRN=AX(lfREGtO); 
ABW=LX(HWW(SP)t5); 
EMITC(12»REG»0,PEGf0); 
RELEASE(REG); ^, 

CALL DX(HWW(SP)); 


/*11/13«/ 


/* 11 / 19 */ 
/*ll/19*/ 
/#11/19*/ 
/#11/19*/ 
/^ll/19*/ 
/All/19*/ 
/*11/19*/ 


END; /*11/13 UP’?'/ 

/* (122) <L0G1CAL PRIMARY> <STRING EXPRESSION> */ 

« 

/»’'(123l <LOGICAL PRIHARY> =/STRING EXPRESSIONS <RELATION> 
<STRING EXPRESSION> */ 

do; /’!'11/13 DN*/ 


FOREVER INDICAT0R=FALSE;/*11/13^/ 

REG=LX(XRNt5) ; /*LOAD FIRST OP IN XREb’i'/ 

ABW=LX(Hwil(SP),5); /=?'LOAD SECOND OP INTO AN XREG*/ 

NVApiAXIsiltO); /^DEFINE RESULT EXPRESSION*/ . 
W0RK=LX(NVAL;5); /*LCAD A 1 INTO RESULT*/ 
RELEASE(REG); 

RELEASE(ABW); 

CALL NEXT_W0RD_B0UND; 


/*ll/20*/ 

/*11/2Q*/ 

/*ll/20*/ 

/All/20*/ 

/All/20*/ 

/*11/20A/ 

/All/20*/ 

/All/20*/ 
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^[sl®EWTC(M"RiGlRiGjBwIS!|'>JI§B^R^ 0»^DER*/ 

iMITclIz^WORK^oUlou’/^FALlE^fEST SET RESULT TO 
CALL OxiHWwUpfn^/SiLETE^SECOND^OP^E^ 

xrn=nval; /^record result-^/ 


0 */ 


/*ll/27=«=/ 

/♦11/20*/ 

/♦11/27*/ 

/*ll/2Q*/ 

/*ll/20«/ 

/«ll/20=<'/ 

/=^ll/20*/ 


END; /*11/13 UP*/ 

/* (124) <STRING EXPRESSI0N> 


/* 

00 ; 


(125) <STRING 
<ARITHMETIC 
/*11/13 ON*/ 


EXPRESSION> 

EXPRESSION> 


<ARITHMETIC EXPRESSION> 

<STRING EXPRESSION> CAT 
*/ 


*/ 


FOREVER_INDICATQR=FALSE; /*11/13*/ 


END; /*11/13 UP*/ 

/* (126) <ARITHMETIC EXPRESSION> ::= <TERM> */ 

/.’(127I <ARITHMETIC 6XPR6SSI0N> <AR1THMETIC EXPRESSION) * <TERM> «/ 

DO; /*11/13 DN*/ 


FOREVER INDICATOR=FALSE; /*11/13*/ 
REG=LX(^RN»5); 

HOLD{REG); 

CALL DX{XRN);^^ 

XRN=AX(1»REG,0); 

ABW=LX(HWW(SP) *5) ; 
EMlTC(30tRFG»REGtABWi0), 
RELEASE(REG); ,, 

CALL DX(HWW(SP)); 


/*11/19*/ 

/*11/19*/ 

/*11/19*/ 

/*11/19*/ 

/*11/19*/ 

/*ll/19*/ 

/*11/19*/ 

/*11/19*/ 


END; /*11/13 UP*/ 
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/* (128) <ARITHMETIC EXPRESSION> 
DO; /=«^11/13 DN=<'/ 


= <ARITHMETIC EXPRESSI0N> - <TERM> -/ 


FOREVER INDICATOR=FALSE; /#11/13*/ 
REG=LX(1<RN,5) ; 

HOLD(REG); 


/*11/19*/ 

/«11/19-/ 

/’!'ll/19’i=/ 

/^^ 11 / 19 */ 

/=!'-ll/19-^'/ 

/^-\.l/19^/ 

/*ll/19=t/ 

/*11/19*/ 



ABW=LX(HWW(SP) ,5) 
EMITC(31,REG,PvEG, 
RELEASE(REG); 


KtLuAotiKCVj / V 

CALL DX(HWVI(SP) ) ? 


END; /^ll/lS UP*/ 

/* (129) <ARITHMETIC EXPRESSION> + <TERM> 

DO; /*11/13 DN*/ 

FOREVER_INDICATOR=FALSE; /^Il/IB-*/ 

END; /*11/13 UP*/ 

/* (130) <ARITHMETIC EXPRESSION> - <TERM> 

DO; /*11/13 DN*/ 


FOREVER_INDICATOR=FALSE; /*11/13*/ 
XRN=HWW(SP); 

REG=LX(XRN,5); 

Mni nr RFO) : 



/*ll/27P*/ 

/*11/19*/ 

/’i'll/19*/ 

/.-11/10*/ 

/*ll/19*/ 

/*11/19*/ 

/*11/19*/ 
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i 




END; /=<'11/13 UP*/ 

/* (131) <TERM> ::= <PRIMARY> */ 

♦ 

/* (132) <TERM> ::= <TERM> =*« <PR1MARY> 
DO; /*11/13 DN*/ 


,EBW(MPP1)fO) 


FOREVER INDICATOR=FALSE; /*11/13*/ 

nval=axT3,i»0); 

WORK=AX(3,ltO) ; 
rbu(Mppi)=lx(nval,6); 

HOLD(PBU(MPPl)); 

EBW(MPP1)=LX(W0RK,6); 

REG=LX(XRNt5); 

RBU(SP)=LX(HWW(SP),5); 

A3W=LX(FIXL(SP),5); 

H0LD( ABW) ^ 

FIXV(SP)=AX(3t0t0); 

FIXV(MPP1)=LX(FIXV(SP),5); 

CALL NEXTWORD bound; 

EMlTcli5»RBU(MPPl)»RBU(MPPl) 
EMITC<12,REGt0»PEG,0); 

EMiTC(i4^ABU(HPPlltRBU(fi^i),EBW(HPPU.Ot: 
EMITC(12fRBU(SP)»0»RBU(SP) tO); 

.PIXVCHPPU .0. i 

emitc(3,Lrbu(sp) ,ASK,n; 

EMITC(12,ABW,0,ABW,0); 

CALL NEXT.WORD.BOUND; 

RELEASE(RBU(MPP1)); 

RELEASE(REG); 

RELEASE(RBU(SP) ) *, 

RELEASE(ABW); 

CALL DX(NVAL); 

CALL DX(WORK); 

CALL DX(XRN); ,^ 

CALL DX(HWW(SP)); 

XRN=FIXL(SP); 


/=!'ll/20*/ 

/*ll/20*/ 

/’i‘ll/20*/ 

/*ll/20*/ 

/*ll/20*/ 

/*ll/20*/ 

/*ll/20*/ 

/*ll/20*/ 

/*ll/20*/ 

/*ll/20*/ 

/*ll/20*/ 

/*ll/20*/ 

/*ll/20*/ 

/*ll/20*/ 

/*ll/20*/ 

/*ll/20*/ 

/*ll/20*/ 

/*ll/20*/ 

/*ll/20*/ 

/*ll/20*/ 

/*11/20P*/ 

/*ll/20*/ 

/*ll/20*/ 

/*ll/20*/ 

/*ll/20*/ 

/*ll/20*/ 

/*ll/20*/ 

/*ll/20*/ 

/*ll/20*/ 

/*ll/20*/ 

/*ll/20*/ 

/*ll/20*/ 

/♦ 11 / 20 */ 

/*ll/20*/ 

/*ll/20*/ 

/*ll/20*/ 
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CALL DX(FIXV(SP)); 


/*ll/20’!'/ 


end; /*ii/13 up*/ 

/* (133) <TERM> <TERM> / <PRIMARY> 

DO; /*11/13 DN*/ 


FOREVER INDICATOR=FALSE; /*11/13*/ 

NVAL=AXT3,ltO); /^define BIJ/ 

WORK=AX(3,1»0); /*DpINE ^2*/ 

RBU(MPP1)=LX(NVAL»6) ; /"^LOAD Bl*/ 

HOLD(RBU( MPPl) ) ; /*HOLD Bl*/ 

EBW(MPPl)=LX{WORK*6); /*LOAD B2*/ 

REG=LX(XRN,5); /*LOADXl*/ 

RBh?SP)=LX(HWW?SP)»5i; /*L0AD X2*/ 

??kLlsPyiIxl3:o(S)-'-/»SiF^NE X3»/ 

ABW=LX(FIXL(SP);5); /*L0AD X3*/ 

REi:EASElRBU(MPpin;p/*R|LEASE Bl*/ 

RELEASE!ABW); /^RELEASE X3*/ 

FMTTC{‘3^27REG?^:SKVl?i) ; /*TEST FOR NEGATIVE 

EMITC(55»PBU(MPP1)»RBU(MPP1)»EBW(NPP1)»0); 

FMTTc!3^2!RBU(Sp!?ASKil,l); /*TEST FOR NEGATIVE DIVISOR*/ 
EMITcl sl^RBUC MPPDtRBLKMPPl)^ EBW(MPP1) tO) ; 

EMITC(35»ABWt7,3»0); /*EMIT A MAXIMUM NUMBER*/ 
EMITC(16,ABW,7*3*0); 

EMITC(4*0*0*ASK+3*1); 

CALL NEXT WORD BOUND; 

EMnC(31,REG*RFG*RBU(SP)*0) ; 

EMITC(59*ABW*ABW»EBW(MPP1)*0) 

i!JiTSll6?AEEyAia':^AAisP).oM 
iaykcyiSsu?s?p??yEK ( mppi >, ask.i, i. •. 

EMITC(12*ABW*0* ABW*0) *, 

CALL NEXT_WORD_BOUND; 


dividend*/ 


/*DIVIDE LOOP*/ 

/*CORRECT OVERRUN*/ 

/*CHANGE SIGN*/ 


/*ll/20*/ 

/*ll/20*/ 

/*ll/20#/ 

/*ll/20*/ 

/*ll/20*/ 

/*ll/20*/ 

/*ll/20*/ 

/»!'ll/20*/ 

/*ll/20*/ 

/*ll/20*/ 

/*ll/20*/ 

/*ll/20*/ 

/*ll/20*/ 

/*ll/20*/ 

/«ll/20*/ 

/*ll/20*/ 

/*ll/20*/ 

/*ll/20*/ 

/*ll/20*/ 

/*ll/20*/ 

/*ll/20*/ 

/*ll/20*/ 

/*ll/20*/ 

/*ll/20*/ 

/*ll/20*/ 

/*ll/20*/ 

/*ll/20*/ 

/*ll/20*/ 

/*ll/20*/ 

/*ll/20*/ 

/*ll/20*/ 

/*ll/20*/ 

/*ll/20*/ 

/* 11 / 20 */ 

/*ll/20*/ 

/*ll/20*/ 




CALL DX(NVAL); 

R51ffi-”/»SELETFDIvT0END»/ , 
rA^^ nx Hwwlspl): /^delete OIVISBR*/ 

xRNbixusP)? /Return result*/ 


end; /*11/13 up=^/ 

/# (134) <TERM> ::= <TERM> MOD <PRIMARY> 

do; /*ii/i3 on*/ 


FOREVER_INDICAT0R=FALSE; 

reg=lx(xrn,5); 
holo(REG); , 

call'nextIword bound: 

oil- 

CALL NEXTWORD BOUND, ^ 

EMITC(3»3f ABWt^SK + lt U , 
EMITC(12tABW,ABW»0t0)j ^ 

EMITC(310 »ABW fASK+l»l)» 

CALL NEXT W0RD,80UND*.^ 

EMITC( 31»1^EGtRtG, ABWtO) ; 
EMITC(3t2fREGtASK,1), 
CALL NEXtIwORO pound; 
EMITC( 310 t REG t ASK+111) j 
EMITC(30,REG rR E G,ABW,0); 
SlL NEXTIWORD.BOUND; 
RELEASE!A^W); 

CALL DX(HWW(SP)); 

XRN=AX(1fREGt 0), 
RELEASE(REG); 


/*11/13*/ 


END; /*11/13 UP*/ 

/* (135) <PRIMARY> ::= <CONSTANT> 
DO; /*10/16*/ 


/*ll/20*/ 

/*ll/20*/ 

/*ll/20*/ 

/*ll/20*/ 

/*ll/20*/ 


/*ll/20*/ 
/*ll/20*/ 
/*ll/20*/ 
/*ll/20*/ 
/*ll/20*/ 
/*ll/20*/ 
/’5C11/20*/ 
/*11/20*/ 
/*ll/20*/ 
/*ll/20*/ 
/*ll/20*/ 
/*ll/20*/ 
/’!^ll/20*/ 
/*ll/20*/ 
/*ll/20*/ 
/*11/20*/ 
/*ll/20*/ 
/*ll/20*/ 
/*ll/20*/ 
/*ll/20*/ 
/*ll/20*/ 
/*ll/20*/ 
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IF P0T=NUMBER THEN DO; 

I=CNB; 

DO WHILE I <= MMLL; 

J=ML(I); 

IF^(*MSn) = PL.HW)£(MS(K)=PRHW)S({ML(K)&3)=0) THEN 
PADRS=J&"3FFFF'*; 

K=ML(K); 

I=SHR(K,18); 

END; 

IF I>MMLL THEN DO; 

J=NHLE; 

K=NMLE; 

ML(K)-SHL(CNB,18); 

ML(J)=SHL(K,18); 

CMB=J; . , 

ESTAT(4)=ESTAT{4)+1; 

MSIJ)=PLHW; 

MS(K) = PRHW; 

PADRS=GDEIPLHW,PRHW,0); 

ML(J)=ML(J)IPADRS; 


END; 

ELSE’^iF POT = STRING THEN PADPS = ^ I NDS ( SVAL ,RH ( SP ) ) *, / 
IF (POT=NUMBER)6(PLHW = 0)&(PRHW<SHLI It 18)) THEN 
XRN=AX(3t PRHWt 2); 

ELSE XRN=AX(0tPADRS,2); 


/*11/21=^'/ 
/=«'11/22P*/ 
/=«=11/2 2P’^/ 
/*11/21-/ 
/*11/21=^=/ 
/=f^ll/21^/ 
/❖11/22P’!'/ 
/-11/21-/ 
/*11/21*/ 
/*11/21-/ 
/=!=11/22P*/ 
/-11/21*/ 
/=(a 1/21=!=/ 
/*11/21*/ 
/=:=ll/21’i'/ 
/=!=11/21+/ 
/*11/21*/ 
/=’m/21-/ 
/^11/21*/ 
/’?=11/21=:=/ 
/=m/2i-/ 
/^\ 1/21^/ 

/ + 1 l/22P=:‘/ 
*10/23’: / 

/*11/22P*/ 

/*11/22P*/ 

/*11/22P*/ 


* END; /*10/16*/ 

/* 1136) <PRIMARY> ::= <VARIABLE> */ 

DO; /*11/13 DN*/ 

forever_indicator=false; /*11/13*/ 


end; /*ii/13 up*/ 

/* (137) <PRIMARY> <PROCEDURE NAME> */ 

do; /*ii/13 dn*/ 





XRN=AX(0,GSTE(STP,15),2); 




end; up*/ 

/* (138) <PRIMARY> ::= <PROCEDURAL> 

DG; /*11/13 DN*/ 

FOREVER_INDICATOR=FALSE; /*11/13*/ 
END; /*11/13 UP*/ 

/* (139) <PRIMARY> <PE> ) */ 

# 

y 

/* (140) <PE> ::= <PELP> <EXPRESSI0N> */ 

DO; /*11/13 DN*/ 


F0REVER_INDICAT0R=FALSE; /*11/13*/ 

XRN=HWW(SP); 

csoo=soD(SP); 

padrs=adrs(sp); 

reg=rbu(sp); 

POT=OTYPE(SP); 

stp=stl(SP); 

END; /*ll/13 UP*/ 

/* (141) <VARIABLE> ::= <SCALAR> */ 

» 

/* (142) <VAR1ABLE> *.:= <VECTOR> -/ 

y 

/* (143) <VARIABLE> ::= <PSEUDONAME> 

DO; /*11/15*/ 


/*ll/25*/ 


/*ll/22*/ 
/* 11 / 22 */ 
/*ll/22*/ 
/*ll/22*/ 
/*ll/22*/ 
/*ll/22*/ 


/*ll/25*/ 


/=;ai/25*/ 





XRN=AX(0,GSTE{STPtl5),2); 




END; /*11/15’!'/ 

/:(, (144) <VARIABLE> <PSEUDOCALL> 

00; /*ii/i5*/ 


1 = 1; /«!!«*#TEMP0RARY****/ 


end; /*11/15*/ 

/* (145) <SCALAR> ::= <BIT STRING NAME> 
DO; /*ll/3 DN=<=/ 


o 

Cs) 


REG=255; 

PADRS=GSTE(STP,13); 

iP'^GSTEf STP^6 ) ^>’60 THEN CS0D=1; ELSE CS0D=0 
XRN=AX(0»PADRS,2); 


/*11/16P*/ 


END; /*ll/3 UP-/ 
/« (146) <SCALAR> : 
DO; /*ll/3 DN=^'/ 


<FIXED NAME> 




csoD=o; 

REG=255; 

PADRS=GSTE(STP,13 

EBW=GSTE(STP,12); 

XRN=AX(0,PADRS,2) 


/^‘11/16P*/ 


END; /*ll/3 UP^?'/ 

(147) <SCALAR> : : = 


<CHAR STRING NAME> 
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DO; /*ll/3 DN*/ 


csoD=i; 

ftEG=255; 

PADRS=GSTE(STP,13); 

EBW=GSTE(STP,12); 

XRN=AX(0,PADRS»2); 


/:Ct^a48)*HECToK^: := <SUBSCRIPT HEAD> ) 




/*’(149) <SUBSCRIPT HEAD> ::= <VECTOR NAME> <PE> 
DO; /*11/15*/ 




REG=LX(XRN»5); /*LOAD BASE IN AN X REGISTER*/ 
HOLD(REG); /*PROTECT BASE REGISTER*/ 

CALL DX(XRN); /*DELETE BASE EXPRESSION*/ 

EMITC(17,REG,3t6,0); 

XRN=AX(lfREG,0); ^ 

RBU(SP)=LX(HWW(SP),6); 

HOLD(RBU(SP)); 


SFW=AXt3,0,0), 
work=ax(3t1»o); 
ABW=LX(SFW,6); 
HOLO(ABW); 

EBW(SP)=LX(W0RK,6), 


/*GET ELEMENT SIZE*/ 

/*DEFINe ELEMENT SIZE EXPRESSION*/ 
/*LOAD SUBSCRIPT INTO A B REG*/ 
/*PP.OTECT SUBSCRIPT REGISTER*/ 
/*DEFINE EXPRESSION FOR RESULT*/ 
/*DEFINE CONSTANT EXP = l*/^ , „ 

/*ASSIGN RESULT EXPRESSION TO A B RE( 
/*PROTECT RESULT REGISTER*/ 

/*LOAD CONSTANT INTO A B REGISTER*/ 
EMltc(547RBU(SPJ,RBU(SP),EBW(SP),0); /*ADD I TO SUBSCRIPT*/ 
NVAL=NEXT WORD BOUND; /*DEF1NE MULTIPLY LOOP*/ 

EMITC(51,IBW,R^GtABW,0); /*ADO ELEMENT ^^/gonM^SUBSCRIPT 
EMITC(55,RBU(SP),RBU{SP),ABW,0); /*SUBTRACT I FROM SUBSCRIPT 
FM T Tr (‘S • RRli ( S P ) * 0 • NVAL * 1) * TEST FOR FINISHED*/ 

^S??hif^i^A&wUBW.REG,0);'*?*s5pf^lcf''kl.Mi^T^?I^ 

RELEASE(RBU(SPn; /*REMOVE ||JBSCRIPT ^iRoCccjnS/^^ ^ 

CALL DX(HWW(SP)); /*DELETE SUBSCRIPT EXPRESSION*/ 

CALL DX(XRN); CRIMII 

CALL DX(WORK); 

RELEASEIABW); /*REMOVE 

XRN=SFW; 


ELEMENT SIZE tXP*/ 
CONSTANT I EXP*/ 

RESULT REG PROTECTION*/ 


/*ll/16P*/ 


/*11/18*/ 
/*11/18*/ 
/*11/18*/ 
/*ii/ie*/ 
/*11/18*/ 
/*11/18*/ 
/*11/18*/ 
/*11/18*/ 
/*11/18*/ 
i/*ll/18*/ 
/*11/18*/ 
/*11/18«/ 
/*ii/ie*/ 
/* 11 / 18 */ 
/*11/18*/ 
/*11/18*/ 
/*11/18*/ 
/*11/18*/ 
/*11/18*/ 
/*11/18*/ 
/*11/18*/ 
/*11/18*/ 
/*11/18*/ 
/*11/18*/ 
/*11/18*/ 
/*11/18*/ 
/*ll/27*/ 
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end; /*ii/i5*/ 

/* (150) <SUBSCRIPT HEAD> ::= <SUBSCRIPT HEAD> » <EXPRESSI0N> 
DO; /*10/31*/ 


CALL ERROR(*T00 MANY 
FOREVER_INDICATOR=FAL 


SUBSCRIPTS',0 
SE; /=f'll/13*/ 


); 


/+9/17*/ 


END; /=«'10/31*/ 

/♦ (151) <\/ECTOR NAME> ::= <BIT STRING ARRAY NAME> 
DO; 

XRN=AX(0,GSTE(STP,13),GSTE(STP , 12)); 

END; 

/* (152) <VECTOR NAME> : := <FIXED ARRAY NAME> 

DO; 

XRN=AX(0,GSTE(STP, 13) ,GSTE( STP , 12) ) 

END; 

/’t' (153) <VECTOR NAME> ::= <CHAR STRING ARRAY NAME> 
DO; 

XRN=AX(0,GSTE(STP,13),GSTE(STP,12) ) ; 


/+11/16P*/ 

/^'ll/ 16P-/ 

/-'Ill / 16P-/ 
/+11/16P-/ 

/'^ll/ 16 P^'/ 

/=ni/i6P-/ 

/=^ll/ 16 P<'/ 

/=!=11/16P*/ 


END; 


/-11/16P-'/ 





/* (154) <CONSTANT> ::= <STRING> 
DO; /* 10/16*/ 


REG=255; /*ll/6*/ 
CSOO=TRUE; /*ll/4*/ 

pot=parse stack(sp); 

FOREVER_lFiDICATOR=FAL 


/*10/16*/ 
SE; /*11/1 


3*/ 


END; /*10/16*/ 

/♦ (155) <CONSTANT> ::= <NUMBER> 
DO; /*10/16*/ 


O 


REG=255; /*ll/6*/ 

CSOO=FALSE; /*ll/4^y 
P0T=PARSE STACK(SP); /*10/16*/ 

IF NVAL=1~THEN FOREVER_INDICATOR=TRUt; / 
ELSE F0REVER_IN0ICAT0R=FALSE; /*11/13*/ 


*11/13*/ 


END; /*10/16*/ 


/* (156) <RELATI0N> ::= EQ 


*/ 


ABW=0; 


/*ll/20*/ 


/* (157) <RELATI0N> ::= LT */ 


ABW=3; 


/*ll/20*/ 





/* (158) <RELATION> 


ABW=7; 

/♦ (159) <RELATION> 

ABW=1; 

/♦ (160) <RELATI0N> 
ABW=2; 

/♦ (161) <RELATI0N> 

o 

ABW=6; 

/« (162) <RELATI0N> 
ABW=6; 


/* (163) <RELATI0N> 


/*ll/20*/ 


■^1 












/=!'ll/20=!'/ 




/^ll/20'-!‘/ 
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ABW=2? 


/* (164) <COLON> ::= <PERIODC> . */ 
; /*9/lT*/ 

/« (165) <SEMICOLON> ::= <COMMAS> . 
; /^- 9 / 28 ^/ 

/* (166) <OECLR> DECLARE */ 

do; /*9/14 dn*/ 


INDEC=TRUE; 

idli=true; 


end; /=<'9/14 UP=*=/ 

(167) <LITERALLY> ::= LITERALLY 

f 

/« (168) <PERI0DC> ::= • */ 

t 

/* (169) <COMMAS> i'= » 

do; /*9/ii^/ 


FOP=TRUE; / 
INDEC=FALSE 


*9/15*/ 

; /*9/16*/ 


END; /*9/19*/ 

/* (170) <LID> ::= <IDENTIFIER> */ 


/*ll/20*/ 






/* (171) <LPM> 


<PARAMETER> */ 


/* 

( 172) 

<EXTERNAL 

TYPE> 

::= EXTERNAL * 

/ 



/♦ 

(173) 

<EXTERNAL 

TYPE> 

::= <EXTERNAL 

HEAD> 

<TYPE> ) */ 


( 174) 

<EXTERNAL 

TYPE> 

::= <EXTERNAL 

HEAD> 

LABEL ) 

*/ 

/* 

{ 175) 

<PAX> ::= 

( <ARGUMENT EXPRESSICM> */ 




DO; /*11/15*/ 

SFW=NMLE; 
ML(SFV,')=MMLL+1; 
MS(SFW)=HWW(SP); 


END; /=<'11/15*/ 

/* (176) <ARGUMENT EXPRESSION> ::= <EXPRESSION> */ 
DO; /*11/13 DN*/ 

F0REVER_IN01CAT0R=FALSE; /«11/13*/ 

END; /=!'11/13 UP*/ 

/* (177) <ARGUMENT EXPRESSION> ::= <VECTOR NAME> */ 
DO; /*11/15*/ 


/ 

/ 

/ 


*1 

*1 

*1 


1/25*/ 

1/25*/ 

1/26P*/ 


1=1; /****tfmporary****/ 






END; /#11/15*/ 


/* (178) <PELP> ( */ 

» 


(179) <T0> ::= TO */ 

DO; 


WORK=NEXT_WORD_BOUNO; 
EMITC(4,0,0,0,0) ; 
NVAL=NEXT_WORD_BOUND; 


END; 

/* (180) <FOR> ::= DO */ 
DO; 


END; 

Ilf (181) <BY> : := BY «/ 
DO; 


END; 

/# (182) <D0 CASE> ::= 
DO; 


DO CASE */ 


/’I'll/B DN*/ 


/>!=ll/3 UP*/ 
/*11/23P*/ 

/*11/23P*/ 

/♦11/23P*/ 

/*11/23P*/ 

/+11/23P*/ 

/*11/23P*/ 


/*11/23P*/ 






END; 

/* (183) <CASE EXPRESSION> <EXPRESSION> */ 

DO; 


END; 

• /* (184) <DO VARIABtE> 5J= <VARIABLE> *■/ 
DO; 


o 


■ END; 

(185) <INITIAL EXPRESSION> ::= <EXPRESSION> */ 
DO; 


end; 

/* (186) <T0 EXPPESSI0N> ::= <EXPRESSION> */ 

do; 


/*11/23P*/ 

/♦11/23P*/ 

/=i=ll/23P*/ 

/*11/23P*/ 

/=Ml/23P’i'/ 

/*!1/23P*/ 
/^11/23P*/ 

/=<'11/23P*/ 

/';=11/23P-/ 

/^•11/23P*/ 

/-11/23P*/ 
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END; 

/# (187) <BY EXPRESSION> ::= <EXPRESSION> */ 
DO; 


END; 


END 


/* SYNTHESIZE CASE STMT */ 


VAR(MP)= 

FIXVIMP) 

FIXL(MP) 

STL(MP)= 

RBU(MP)= 

SODCMP) 

EBW(MP)= 

WS1(MP)= 

WS2(MP)= 

ADRS(MP) 

LHW(MP) 

RHW(MP) 

OTYPEIMP 

HWW(MP)= 

FWW(MP)= 


sval; / 

=nval; 

=work; 

STP; 

REG; 

= csod; 

A B w; / 

c; 

L; /*9/ 
= PADR 
= PLHW; 
= PRHW; 
) = POT 
XRN; /* 
SFW; /- 


=9/14 DN=?=/ 


/=(= 11 / 1 "-/ 

9/17*/ 

14 UP*/ 

S; /*10/16*/ 
/*10/16*/ 
/*10/16*/ 

; /*10/16*/ 

11/14*/ 

11/13*/ 


END SYNTHESIZE; 


/♦11/23P*/ 


/*11/23P*/ 

/*11/23P"'=/ 


/*11/23P*/ 





SYNTACTIC PARSING FUNCTIONS 


-0 

ro 


/* 




RIGHT CONFLICT: 

PROCEDURE (LEFT) BIT(l); 

/*^*’THIs'’PROCEDURe’IS TRUE IF TOKEN 
RETURN (“CO” & SHL(BYTE(C1(LEFT)f SHR(TOKEN»2))» 
fl "06") ) = 0; 

END RIGHT CONFLICT; 


RIGHT CONTEXT OF LEFT*/ 
SHL(T0KEN,1) 


RECOVER: 

PROCEDUREIhis js the SFCOND SUCCESSIVE CALL TO RECOVER, DISCARD ONE SYMBOL */ 
IF -1 FAILSOFT THEN CALL SCAN; 

FAILSOFT = FALSE; 

°° C4LL‘SCAN;'’'’/I'tO FIn£i S0H6THIMC. SOLID IN THE TEXT */ 

EKhILE 5IfT.C0NE|,ip^lPARSpTACK.SP}.;^^^ 

ELSE CALL SCAN; /* BUT DON'T GO TOO FAR */ 

OUTPUT = 'RESUME:' M SUBSTR(POINTER, TEXT_LIMIT-CP+MARGIN_CH0P+7); 

END RECOVER; 

PRQCEDURE BIT(l); /* STACKING DECISION FUNCTION */ 

CALL UCC(2); 

• “ EnASE’sHR(B?T^ICUPARS&A£^(SPn.SHP(T0KEN.2n,SHLl3.TC.KEN.llL6K3i 


/* 

DO; 


CASE 0 */ 

/* ILLEGAL SYMBOL PAIR 
CALL FRROR{'ILLEGAL SYMBOL 
V(TOKEN), 1); 

CALL GENSTACKDUMP(2, ' PARSE 
CALL RECOVER; 


end; 


*/ 

PAIR: ' 
IS NOW: 


II V(PARSE_STACK(SP)) II XI II 
'); /*ll/7*/ 


/* CASE 1 */ 

RETURN TRUE; /* STACK TOKEN */ 


/* CASE 2 */ 

RETURN FALSE; /=•' DON'T STACK IT YET */ 
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/« 

DO 


CASE 


*/ 


/* MUST CHECK TRIPLES */ cui/padcf STACK(SP)f 8) + 
i oPTUPLES 

DO WHILE I + 1 < K; 

L = SHR{I + K, 1); , 1/ _ I . 

TF riTRTPLES(L) > J THEN K — L* 

itil IfX iAub’TR.PLE */ 

END; 

RETURN FALSc; 

END; 

END; /- OF DO CASE */ 

END; /* OF DO FOREVER */ 

END STACKING; 


TOKEN; 

*/ 


'(^ R OK * 

-pROCEOUREjPRDI FOR CONTEXT CHECK OF EQUAL OR 

DECLARE (H» I» J» PRD) FIXEDi 
DO cKe C0NTEXT_CASE(PRD); 

/« CASE 0 — NO CHECK REQUIRED */ 

RETURN TRUE; 

/* CASE 1 — RIGHT CONTEXT CHECK */ 

RETURN RIGHT_CQNFLICT (HDTB(PRD)); 

/* CASE 2 -- LEFT CONTEXT CHECK «/ 

DO * 

I - SpS^^STACM sp’- PRLENGTH(PRD) M 
An“i ='tFFT INOEXIH-l) TO L EFT_IND EX (H) - 1; 
IF LEFT_CONTEXT(J) = I THEN RETURN TRUE; 

end; 

RETURN FALSE; 

END; 


IMBEDDED RIGHT PARTS*/ 


/* 

DO; 


CASE 3 — CHECK TRIPLES */ 


H = HDTBIPRO) 


NT 
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T = «;hLI PARSE STACK(SP - PRLENGTH( PRO) ), ,8) + TOKEN; 
nn 1 = TRIPLE INDEX(H~1) TO TRIPLE_INDEX(H) ~ 1» 

IF C0NTEXTZTRIPLE(J) = I THEN RETURN TRUE; 

END; 

RETURN FALSE; 

END; 


END; /* OF DO CASE 
END pr_ok; 




/# 


ANALYSIS ALGORITHM 




COMPILATION LOOP: 

procedure; 


/-ll/9=)c/ 


reduce: 

^^°declarI (It Jf PRO) fixed; ^ 

A^^PACK STACK TOP INTO ONE WORD '•-/ 

J = SHLlut 8? +''parsLstack(I); 

END; 

DO PRD = PR INDEX(PARSE STACK(SP}-1) TO PR INDEX(PARSE_STACK(SP)) 

IF (PRMA^K{PRLENGTH(PRD)) C J) = PRTB(PRD) THEN 

DO;^^7§'^An'^ALLOWED REDUCTION «/ /♦11/18«/ 

Kll’^SYNTHEs]ze'(PRDTB(PRU) tPRD) ; /#9/28*/ 

9 p = M p ; 

PARSF_StACK(SP) = HDTB(PRD); 

RETURN; 

END; 

END; 

look UP HAS FAILEpt ERROR i ) • 

CALL ERRORCNO PRODUCTION IS APPLICABLE ,1 , 

CALL GENSTACKDUMPI2t'PARSE IS NOW. ), /*ll/7 / 

FAILSOFT = FALSE; 

CALL RECOVER; 

END REDUCE; 


COMPILING = true; 

DO WHILE COMPILING; 

DO WHILE STACKING; 
SP = SP + i; 


/* 


ONCE AROUND FOR EACH PRODUCTION (REDUCTION) 
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M 


IF SP 
DO 


= STACKSIZE THEN 


CALL ERROR 
RETURN; / 


(•STACK OVERFLOW CHECKING ABORTED 

* THUS ABORTING CHECKING */ 


END; 

FWW{SP)=0; 

HWW{SP)=0; 

ABWS(SP)=0; 

PARSE_STACK(SP) = TOKEN; 
VAR(SP) = BCD; 

STL(SP)=STLOT; 

OTYPE(SP) = 0; 

F I XL ( SP) =v;ORK; /-9/14=('/ 
AORS(SP)=WAD; 

LHWISP)=LH; 

RHW(SP)=RH; 

FIXV(SP) = NUMBER_VALUE; 
MSKL(SP) = WMSKL; 

CALL SCAN; 

END; 


/=?10/16-/ 

/*10/16=5'/ 

/*10/16*/ 


2 ) ; 


CALL REDUCE; 
END; /* OF DO 

END COMPILATION_LOOP; 


WHILE COMPILING 




CARDS PROCESSED.'; 
OUTPUT='NO ERRORS FOUND.' 


ERRORS (' 
FOUND ON 


DO 


PRINT SUMMARY: 

PROCEDURE; 

. OUTPUT = " ; 

CUTPUT=ESTAT(3)I ! • 

IF ESTAT(0)=0 THEN 
ELSE DO; 

OUTPUT=ESTAT(0)!I' 
OUTPUT='LAST ERROR 
END; 

IF CCNTROLIBYTE( 'D' ) ) THEN 
/=<'LIST SYMBOL TABLE=f=/ 
EJECT_PAGE; 

DO 1=1 TO CSTS-1; 

GS=GETSTRING(GSTE(I,0)) 
DO WHILE LENGTH(GS)<20; 
GS=GSi|' •; 

END; 

CALL LSTE(I); 

OUTPUT=GS; 

END; 


I |ESTAT(l)i I' SEVERITY) 
LIME • 1 IESTAT(2)I I ' .'; 


FOUND 


/*11/1 
/« 11/1 
/* 11/1 
•; /-I 
/* 11/1 
/=!'11/19P 
/=^ll/2 
/=^ll/2 
/^-ll/2 
7*11/2 
7*11/2 
7*11/2 
7*11/2 
7*11/2 
7*11/2 
7*11/2 
7*11/2 


9*7 

9*7 

9*7 

1/19*7 

9*7 

-r / 

2 A* 7 
2A*/ 

2 A*/ 
2A*/ 

2 A*/ 
2A*/ 

2 A *7 
2A*/ 
2A*/ 
2A*/ 
2A*/ 





176 


DOUBLE_SP ACE; .. 
OUTPUT=*MSTS= 'IlMCSTS; 
/*LIST STATISTICS*/ 
EJECT_PAGE; 


ML ML; 

MNAX; 

XLC; 

NTA; 

AT(4); 

USAGE STATISTICS*/ 


ELSE 

ELSE 


• 1IROOAII) 


0UTPUT=’MLML= ' 

OUTPUT='MNAX= ' 

0UTPUT=*EXPA= ' 

OUTPUT='NNTMP=^’ 

OUTPUT=*NNCC= ^1 ES. 

/*LIST REGISTER 
EJECT_PAGE; 

^IF I<8^THEN GW='X'; 

IF I<16 THEN GW='A'; 

GW='BJ; 

OUTPuf=GW| I *( ' I IJ I i*) 

/*LIST'^iNSTRUCTION FREQUENCIES*/ 

’ eject,page; 

DO 1=^ TO 63; 

OUTPUT* • INST i i I I6WI I • ! ■ I I INST_FP,EQ( 1 ) i 

/*LIST^PROCEOURE CALLS*/ 

EJECT page; 

DO 1=^ TO 60; 

GW=I FC RMAT(I» 2); 
i'c—i'ppnr * IGW; 

GW=I_F0RMAT(CALLC0UNT(I>,10); 

0UTPUT=GS| •:'||GW; 

END; 

END; 

double_space; 

END print_summary; 

main procedure: 

^^°CALL^Initialization; 

CALL compilation loop; 

CALL print SUMMARY; 

END MAIN_PR0C^DURE; 


/*11/22A*/ 

/*11/22A*/ 

/*11/22A*/ 

/*11/22A*/ 

/*11/22A*/ 

/*ll/22A*/ 

/*11/22A*/ 

/*11/22A*/ 

/*11/22A*/ 

/*11/22A*/ 

/*11/22A*/ 

/*11/22A*/ 

/*11/22A*/ 

/*11/22A*/ 

/*11/22A*/ 

/*11/22A*/ 

/*11/22A*/ 

/*11/22A*/ 

/*11/22A«/ 

/*11/22A*/ 

/*11/22A*/ 

/*11/22A*/ 

/*11/22A*/ 

/*11/22A*/ 

/*11/22A*/ 

/*11/22A*/ 

/«11/22A*/ 

/*11/22A*/ 

/*11/22A*/ 

/*11/22A*/ 

/*11/22A*/ 

/*11/22A*/ 

/*11/22A*/ 


CALL MAIN PROCEDURE; /*11/19*/ 

RETURN ESTAT(I); 

EOF EOF EOF EOF EOF EOF EOF EOF EOF EOF EOF 








Appendix D 

An Example of Expression Processing 


To process the statement "A = B - 1;" assuming 

1. no registers except XI, X7, Al, and A7 are in 
use or being held, 

2. A is a FIXED variable assigned to location 
754, 

3. B is a FIXED variable assigned to location 
873, 

4. there are no active expression groups, i. e. , 
active expression group list; NULL, and 

5. the last expression number assigned was 50 


the fallowing processes would be carried out: 

1. "B" is recognized as a scalar and assigned 

an expression number, i. e. , 51 

An Expression Group is created describing "B' : 
exp. grp. 51; location: 873, register; 32,=:= 
address indicator; 1, type; 0 
active expression group list; 51 


2. "1" is recognized as a number 


"1” is recognized as a constant and, since it 
is less than 2l9, a direct-value expression group 

is created to describe it; 

exp. grp. 52; location: 1, register: 32 

address indicator: 0, type; 3 
active expression group list: 52, 51 


- A register number greater than 31 indicates that the 
expression is not in a register. 
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4 . 


The expression represented by expression crr-'ip 53 
is loaded into the first available X register- -^0 (8, 

This is done by 

a) finding a free X register 

b) loading the location field of exp. grp. 51 
into Al, and 

c) moving the contents of XI to XO 

Expression group 51 is modified to indicate that the 
expression it describes is no-w in register XO- 

exp. grp. 51; location: 873, register; 0 

address indicator: 0, type; 1 

active expression group list; 51, 52 

5. The expression represented by expression group 52 
is loaded into the first available X register: X2:l 

The expression group describing expression 52 is 
modified to indicate that the expression is in 
register X2: 

exp. grp. 52; location: 1, register: 2 

address indicator; 0, type: 1 

active expression group list; 52, 51 

6. An expression group is created to describe the 
result, which will be in register XO; 

exp. grp. 53: location; 0, register; 0 

address indicator; 0, type: 1 

active expression group list; 53, 52, 51 

7. The contents of register X2 are added to those of 
XO with the results being placed in XO; 

XO: (873) - 1 

8. Expression groups 51 and 52 are deleted, 
active expression group list: 53 

9. "A" is recognized as a scalar and an expression 
group is created to describe it; 

exp. grp. 54: location; 754, register; 32 

address indicator: 1, type: 0 
active expression group list: 54, 53 
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10 The expression represented by expression -oup ^3 
is moved to the location specified by expr. non. 
group 54, and expression group 

a) a free X register greater than X5 is locat . 

X6 is found free. 

b) the contents of XO are moved to X6 

c) the location field from expression group 5 
is placed in register A6 

d) expression group 53 is modified to indicate 

the new location of the expression it represents, 
exp. grp. 53; location; 873, register. 6 

address indicator; 0, type; 1 

e) Expression group 54 is deleted; 
active expression group list: 53 

11. The expression group representing the expression 
on the right side of the replacement is deleted; 
active expression group list: NULL 

It is important to note that the above actions describe the code 

that is emitted as well as the actions taking place in the compiler. 


« 


* 
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